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

Question

Информатика

Толяха

15 сентября, 20:32

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

+2

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