Question

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

Answer 1

№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.

Answer 2

а точно правильно

Answer 3

да проверено