Определить количество трёхзначных цыфр , сумма цыфр которого равна заданному числу N.

Question

Определить количество трёхзначных цыфр , сумма цыфр которого равна заданному числу N.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

const m = 999; var i, N, count:integer; begin write('N = '); readln(N); count := 0; for i := 100 to m do begin if (i mod 10) + (i div 10) mod 10 + (i div 100) mod 10 = N then inc(count); end; writeln('Count = ', count); readln; end.