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

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

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

Question

Васюха

21 июня, 22:32

+1

Ответы (1)

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

Маюха · Answer 1

Var n, i:integer;

begin

read (n) ;

for i:=1 to n do

if sqr (i) <=n then writeln (sqr (i)) ;

end.