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

k:=0;
for i:=105 to 995 do
if i mod 15=0 then k:=k+1;

for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if(100*i+10*j+k) mod (i+j+k)=0 then write(i,j,k,' ');

for i:=100 to 999 do
 begin
  s:=(i div 100)+(i div 10 mod 10)+(i mod 10);
  if i mod s=0 then write(i,' ');
 end;

Program Test;
Uses Crt;
Var
  j,count:word;
 
BEGIN
  j:=100;
  count:=0;
  while (j<1000) and (j mod 15 <>0) do Inc(j);
  Inc(count);
  while j<1000 do
    begin
      Inc(j,15);
      Inc(count)
    end;
  writeln('COUNT=',count);
  repeat
  until KeyPressed
END.

Program Test;
Uses Crt;
Var
  j,count:word;
 
BEGIN
  j:=100;
  count:=0;
  while (j<1000) and (j mod 15 <>0) do Inc(j);
  repeat
    Inc(count);
    Inc(j,15)
  until j>1000;
  writeln('COUNT=',count);
  repeat
  until KeyPressed
END.