Напишите программу в Паскале

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

Question

Енюша

17 февраля, 00:45

+1

Ответы (2)

Знаете ответ?

Пана · Answer 1

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.

Януарий · Answer 2

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.

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