Вопрос школьника по предмету Информатика
1) Дано число X. Вывести на экран квадрат данного числа. 2) Вы пошли в магазин, у вас имеется X руб. в магазине вы купили тетрадь, ручку и карандаш. Сколько денег у вас осталось? Напишите пожалуйста. На языке Паскаль.
Ответ учителя по предмету Информатика
№1
program q177816090_1;
var
a, i: integer;
begin
Write(‘A = ‘);
ReadLn(a);
for i := 1 to a do
Write(i, ‘ ‘);
ReadLn;
end.
№2
program q177816090_2;
var
n, i: integer;
begin
Write(‘N = ‘);
ReadLn(n);
for i := 1 to n do
Write(Sqr(i), ‘ ‘);
ReadLn;
end.
№3
program q177816090_3;
var
n, k, i: integer;
begin
Write(‘N = ‘);
ReadLn(n);
Write(‘K = ‘);
ReadLn(k);
for i := 1 to n do
Write(k, ‘ ‘);
ReadLn;
end.
Похожие вопросы от пользователей
1.Климат
2.Рельеф
3.Почва
4.Воды
5.Растительный мир
6.Животный мир.