Question

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

Answer 1

uses crt;
var
    i, n, count: longint;

begin
    clrscr;
    writeln('Zadaite chislo n');
    readln(n);
    
    count := 0;
    for i := 100 to 999 do
        if i div 100 + i div 10 mod 10 + i mod 10 = n then
        begin
            writeln(i,' ');
            count:=count + 1;
        end;
        
    writeln(count);
    readln;
end.