Программа № 1
uses crt;
var c,i,k: integer;
begin
write('Задайте число: ');
readln(c);
write('Количество трехзначных чисел, сумма цифр которых равна ',c,': ');
for i:=100 to 999 do
if (i div 100)+(i div 10 mod 10)+(i mod 10)=c
then inc(k);
write(k);
end.
Программа № 2
var
c, i, k: integer;
begin
write('Задайте число: ');
readln(c);
write('Количество трёхзначных чисел, сумма цифр которых равна ', c, ': ');
i := 100;
while i < 1000 do
begin
if (i div 100) + (i div 10 mod 10) + (i mod 10) = c then inc(k);
inc(i)
end;
write(k)
end.