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

var i,k:integer; begin write('k = '); readln(k); writeln('Числа, сумма цифр которых = ',k); for i:=10 to 99 do  if i div 10+i mod 10=k then writeln(i); end. Пример: k = 15 Числа, сумма цифр которых = 15 69 78 87 96