Вывести квадраты чисел от 1 до N. В ПАСКАЛЕ написать программу (НЕ ИСПОЛЬЗУЯ for и с...

Question

Вывести квадраты чисел от 1 до N.
В ПАСКАЛЕ написать программу (НЕ ИСПОЛЬЗУЯ for и с циклами WHILE или REPEAT)

Comments

Не используя for while & repeat или только for, а while & repeat можно?

---

да, конечно можно

---

только не используя for

Answer 1

Program abc;

var  x,y,N:integer;

begin

write('Enter N: ');

readln(N);

x:=1;
  while y
 y:=x*x;

if y
   write(y,' ');

x:=x+1;

end;

writeln;

 end.