Среди двухзначных чисел указать те, сумма цифр которых равна N - Pascal ABC
Формулировка задачи:
Задача. Среди всех двузначных чисел указать те, сумма цифр которых равна заданному числу N. Помогите написать.
Решение задачи: «Среди двухзначных чисел указать те, сумма цифр которых равна N»
textual
Листинг программы
program pr; var i,n:integer; begin writeln('Введите число'); readln(n); for i:=10 to 99 do if ((i div 10) mod 10)+(i mod 10)=n then writeln('Число сумма цифр которого равна заданному числу: ',i); end.