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

248

376

Посмотреть ответы 2

Ответы на вопрос:

Russ1357900

Информатика

4,5(21 оценок)

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

улан291

Информатика

4,6(19 оценок)

112 2 2,3,4,9 3 var n, m: longint; d: integer; begin read(n); m : = 0; while n > 0 do {1 на 0} begin d : = n mod 10; if d < 9 then begin m : = 10 * m + d; {домножили на 10} end; n : = n div 10; end; write(m); end.