Question

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

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);