Вывести ** экран все двузначные числа, сумма цифр которых равна заданному числу...

Question

Вывести на экран все двузначные числа, сумма цифр которых равна заданному числу n.
Написать программу в паскаль abc

Answer 1

Var
  i,j:0..9;
  n: integer;
begin
 readln(n);
 for i:=1 to 9 do
  for j:=0 to 9 do
    if i+j=n then writeln(i*10+j)
end.
6
15
24
33
42
51
60