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

program sum3;

var N, m, c: integer;

//N - сумма цифр (задается), s1 - сумма цифр (подсчитывается);

//с - количество цифр, удовлетворяющих условию

begin

writeln ('Введите сумму цифр');

readln (N);

writeln ();

c : = 0;

for i: integer: = 100 to 999 do

begin

m : = (i div 100) + ((i mod 100) div 10) + ((i mod 100) mod 10);

//число сотен + число десятков + число единиц

if m = N then

begin

c : = c + 1; / /счетчик чисел, для которых выполняется условие

write (c, ') ', i, ', ')

end

end;

writeln ();

writeln ('Всего чисел с суммой цифр ', N, ' - ', c)

end.