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

Question

Информатика

Васяня

16 декабря, 11:13

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

+3

Ответы (1)

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

Победа · Answer 1

program asd;

var x, k, n:integer;

begin

readln (n) ;

for x:=100 to 999 do begin

if (x div 100 + x div 10 mod 10 + x mod 10 = n) then

k:=k+1;

end;

writeln (k) ;

readln;

end.