Помогите составить программу Вычислите количество всех трёхзначных чисел, сумма которых равна 12. (при помощи цикла)

Question

Информатика

Вета

29 мая, 14:08

Помогите составить программу Вычислите количество всех трёхзначных чисел, сумма которых равна 12. (при помощи цикла)

+4

Ответы (1)

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

Домника · Answer 1

Var i, count: integer;

begin

for i : = 100 to 999 do

if i div 100 + i div 10 mod 10 + i mod 10 = 12 then

count : = count + 1;

writeln (count) ;

end.