Володарь
6 год назад
Написать программу, которая выводит на экран квадраты первых 10 целых положительных чисел.
ОТВЕТЫ
Kaevkapan
Jul 5, 2019
Program aspfoj;
var i, a:integer;
begin
a:=1;
for i:=1 to 10 do begin
writeln (a*a);
a:=i+1; end;
end.
var i, a:integer;
begin
a:=1;
for i:=1 to 10 do begin
writeln (a*a);
a:=i+1; end;
end.
124
