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

Question

Информатика

Снежана

20 сентября, 19:30

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

+1

Ответы (1)

Знаете ответ?

Глафира · Answer 1

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.