Question

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

Answer 1

program abc;

var  x,y,N:integer;

begin

write('Enter N: ');

readln(N);

x:=1;
  while y<N do begin

 y:=x*x;

if y<n then

   write(y,' ');

x:=x+1;

end;

writeln;

 end.