Question

Напишите программу в Паскале
Среди всех двузначных чисел найти те, сумма цифр которых равна n (0

Answer 1

var i, n: integer;
begin
readln(n);
for i:=10 to 99 do 
if (i mod 10 + i div 10 = n) then
write(i, ' ')
end.

Answer 2

var n,i:integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod 10 + i div 10) =n then writeln(i);
end.