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

Question

Информатика

Нинуха

7 августа, 08:13

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

+2

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