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

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

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

Question

Меркурий

5 ноября, 01:28

+5

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