Составьте программу для решения следующей задачи с использование цикла с предусловием:...

Question

Составьте программу для решения следующей задачи с использование цикла
с предусловием: «Выведите все точные квадраты натуральных чисел,
не превосходящие данного числа n».

Answer 1

Var i,n:integer;
begin
read (n);
i:=0;
for i:=1 to n do 
begin
if  sqr(i)<=n then<br>writeln (sqr(i));
end;
end.