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

Question

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

Answer 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)<=N then<br>       Write(A,' ')
End.

Comments

он у меня почему-то выводит все числа от 100 до 999

---

"трехзначные натуральные числа, сумма цифр которых не превосходит заданное"

---

9+9+9 = 27

---

Введите число
5
100 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

---

Введите число
3
100 101 102 110 111 120 200 201 210 300

---

а, точно, спасибо))

---

Есть смысл вводить числа не больше 27