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

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

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

Question

Вильгельм

3 июля, 19:27

+4

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