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
       Write(A,' ')
End.