Вынеси 20 раз квадрат любого числа написать программу и алгоритм

1

Ответы и объяснения

2013-04-27T09:44:36+00:00

var a,b:integer;
begin
writeln('Введите число');
readln(a);
for b:=1 to 20 do writeln(sqr(a));
readln;
end.