Найти все целые двухзначные числа сумма цифр которых равна 8

Question

Информатика

Максимка

5 марта, 01:29

Найти все целые двухзначные числа сумма цифр которых равна 8

+4

Ответы (1)

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

Виктория · Answer 1

Count : = 0;

for i : = 10 to 99 do

Inc (count, Integer (((i div 10) + (i mod 10)) = 8)) ;

for i : = 10 to 99 do

if (((i div 10) + (i mod 10)) = 8) then

writeln (i) ;