Question

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

Answer 1

var
    N, i, k, sum, t: integer;

begin
    readln(N);
    k := 0;
    
    for i := 100 to 999 do
    begin
        t := i;
        while t > 0 do
        begin
            sum := t mod 10;
            t := t div 10;
        end;
        if sum = N then k := k + 1;
    end;
    
    writeln(k);
end.