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

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

Question

Светлана

23 ноября, 07:54

+4

Ответы (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