Вот такая задача...)

[Gen*]

Составить программу, определяющую количество натуральных трехзначных чисел , сумма которых равна заданному числу N.

P.s. PASCAL

[DM_bite]

Program xD;
var n,a,b,c,i,k: integer;
   begin
   ReadLn(n);
   k:=0;
   for i:=100 to 999 do
   begin
   a:= i div 100;
   b:= i mod 10 mod 10;
   c:= i mod 10 div 10;
  if n=a+b+c then inc(k);
   end;
   WriteLn(k);
   ReadLn;
   end.

[Gen*]

Сообщение от DM_bite

Program xD;
var n,a,b,c,i,k: integer;
   begin
   ReadLn(n);
   k:=0;
   for i:=100 to 999 do
   begin
   a:= i div 100;
   b:= i mod 10 mod 10;
   c:= i mod 10 div 10;
  if n=a+b+c then inc(k);
   end;
   WriteLn(k);
   ReadLn;
   end.

cпасибо БОЛЬШОЕ)

[Gen*]

препод сказал неправильно работает(