Вывести на экран все трехзначные естественные числа, сумма цифр которых не

Вывести на экран все трехзначные естественные числа, сумма цифр которых не превосходит данное юзером (введенное с клавиатуры) число.

Задать свой вопрос
1 ответ
Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
    if (A div 100)+((A div 10) mod 10)+(A mod 10)lt;=N then
       Write(A,' ')
End.
Данил Чахунов
он у меня почему-то выводит все числа от 100 до 999
Игорь
"трехзначные естественные числа, сумма цифр которых не превосходит данное"
Рома Устратов
9+9+9 = 27
Карабинов Денис
Введите число5100 101 102 103 104 110 111 112 113 120 121 122 130 131 140 200 201 202 203 210 211 212 220 221 230 300 301 302 310 311 320 400 401 410 500
Roslin Ivan
Введите число3100 101 102 110 111 120 200 201 210 300
Есения Оладьина
а, точно, спасибо))
Илья Размологов
Есть смысл вводить числа не больше 27
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт