• ЛЮДИ ДОБРЫЕ ПОМОГИТЕ!
    25баллов

    Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N.

    Входные данные
    Задано единственное целое число N

    Выходные данные
    Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.

    Примеры
    входные данные
    15
    выходные данные
    1
    4
    9

Ответы 1

  • var n,k:integer;beginwrite('n='); readln(n);k:=1;while k*k<=n do begin writeln(k*k); k:=k+1; end;end.
    • Автор:

      ronanob9t
    • 2 года назад
    • 20
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years