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

с предусловием: "Выведите все точные квадраты натуральных чисел,

не превосходящие данного числа n".

Question

Аксён

8 февраля, 21:17

+1

Ответы (1)

Знаешь ответ?

Петоша · Answer 1

Var i, n:integer;

begin

read (n);

i:=0;

for i:=1 to n do

begin

if sqr (i) <=n then

writeln (sqr (i));

end;

end.