Question

Номер два. Решите пожалуйста. Язык Паскаль.

Если решите то помогите с номером 1, он у меня в профиле.

Answer 1

Ответ:

готово

Объяснение:

var i,n:integer;

begin

write('n=');readln(n);

i:=1;

while i<=n do begin

write(sqr(i), ', ');

i:=i+1;

end;

end.