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

Question

Информатика

Света

2 ноября, 07:38

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

+4

Ответы (1)

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

Кирюня · Answer 1

Var

N, i, k, sum, t: integer;

begin

readln (N) ;

k : = 0;

for i : = 100 to 999 do

begin

t : = i;

while t > 0 do

begin

sum : = t mod 10;

t : = t div 10;

end;

if sum = N then k : = k + 1;

end;

writeln (k) ;

end.