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

Вопрос от пользователя: Евдоша

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

Ответ: Веруня

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.