Lyuevzhiv
4 год назад
4.Напечатать столбиком квадраты всех двузначных целых чисел (на языке Pascal)
ОТВЕТЫ
Трофим
Oct 24, 2020
Program;
var a,i:integer;
Begin
for i:=10 to 99 do
begin;
readln(a);
a:=a*a;
end;
writeln(a);
End.
var a,i:integer;
Begin
for i:=10 to 99 do
begin;
readln(a);
a:=a*a;
end;
writeln(a);
End.
131
