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

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

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

Question

Ангела

30 октября, 14:41

+2

Ответы (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.