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

Question

Информатика

Кристинья

14 января, 04:22

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

+5

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