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

Question

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

Answer 1

Var n,i:integer;
begin
write('n = ');
readln(n);
i:=1;
while i*i<=n do<br> begin
 write(i,' ');
 i:=i+1;
 end;
writeln;
end.

Пример:
n = 30
1 2 3 4 5