Задать вопрос Регистрация
Помочь другим

  • ЛЮДИ ДОБРЫЕ ПОМОГИТЕ!
    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