Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!! ПРОГРАММА ЗА 8 КЛАСС!!!​

Answer 1

Ответ:

Объяснение:

var

a,n,i:integer;

begin

read(n);

for i:=1 to n do

begin

a:=sqr(i);

write(a,' ');

end;

end.

Answer 2

Ответ:

Объяснение:

var

a,n,i:integer;

begin

read(n);

for i:=1 to n do

begin

a:=sqr(i);

write(a,' ');

end;

end