Среди всех двузначных чисел указать те, сумма цифр которых равна числу К.

Question

Информатика

Антиох

28 апреля, 09:11

Среди всех двузначных чисел указать те, сумма цифр которых равна числу К.

+5

Ответы (1)

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

Бенедикта · Answer 1

Var i, k:integer;

begin

write ('k = ') ;

readln (k) ;

writeln ('Числа, сумма цифр которых = ', k) ;

for i:=10 to 99 do

if i div 10+i mod 10=k then writeln (i) ;

end.

Пример:

k = 15

Числа, сумма цифр которых = 15

69

78

87

96