Объяснение:
var n,i:integer;
begin
write('Введите N ');
readln(n);
for i:=1 to n do
writeln(i,'^2= ',sqr(i));
readln;
end.
Если уж совсем просто, то:
writeln(i*i);
Объяснение:
var n,i:integer;
begin
write('Введите N ');
readln(n);
for i:=1 to n do
writeln(i,'^2= ',sqr(i));
readln;
end.
Если уж совсем просто, то:
var n,i:integer;
begin
write('Введите N ');
readln(n);
for i:=1 to n do
writeln(i*i);
readln;
end.