Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
Var
   x, n: integer;
begin
   x := 1;
   readln(n);
   while x*x lt;= n do
   begin
      writeln(x);
      x := x + 1;
   end;
end.
213
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам