Дано натуральное число N, составить программу, котоая выводит на экран все натуральные числа, квадрат которых не больше чем N

Question

Каздоя

7 ноября, 14:35

+2

Ответы (1)

Знаете ответ на вопрос?

Юреня · Answer 1

Var

x, n: integer;

begin

x : = 1;

readln (n) ;

while x*x < = n do

begin

writeln (x) ;

x : = x + 1;

end;

end.