Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.