1) Дано число X. Вывести на экран квадрат данного числа. 2) Вы пошли в магазин, у вас имеется X руб. в магазине вы купили тетрадь, ручку и карандаш. Сколько денег у вас осталось? Напишите пожалуйста. На языке Паскаль.

Вопрос школьника по предмету Информатика

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.