Question

Пожалуйста, помогите составить программу в паскале для данной задачи:
Среди всех двузначных чисел найте те, сумма цифр которых равна n (0<n≤18) и количество этих чисел.

Answer 1

var
  i, k, n: integer;

begin
  read(n);
  for i := 10 to 99 do
    if i mod 10 + i div 10 = n then begin
      writeln(i);
      k := k + 1;
    end;
  writeln('k = ', k);
end.