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

Question

Информатика

Всеслав

5 апреля, 15:24

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

+1

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