Листинг программы

program z56;

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

 которых равна a(1<=a<=27)}

uses crt;

var i,j,k,a,b:longint;

 begin

  clrscr;

   for i:=1 to 9 do

    for j:=0 to 9 do

     for k:=0 to 9 do

       begin

         b:=100*i+10*j+k;  {Запись трёхзначного числа}

         a:=i+j+k;

        if (a>=1)and(a<=27)then

          begin

           writeln('число: ',b);

           k:=k+1;

          end;

       end;

    write('k= ',k);

  readln;

 end.