Из чисел от 10 до 99 вывести те, сумма цифр которых равна N, возможны два варианта....

Question

Из чисел от 10 до 99 вывести те, сумма цифр которых равна N, возможны два варианта. Паскааааль

Answer 1

Var
   A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
    if A mod 10 + A div 10 = N then Write(A,' ')
End.


Пример работы программы:

N = 9
18 27 36 45 54 63 72 81 90