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

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

Question

Светлана

15 октября, 16:37

+1

Ответы (2)

Знаете ответ на вопрос?

Розалия · 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.

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