program ct;

uses crt;

var a,b,c,n,d:byte;

begin clrscr;

   write('Nhap so n: '); readln(n);

   writeln('Cac so do la ');

   for a:=1 to 9 do

     for b:=0 to 9 do

       for c:=0 to 9 do

          if (a*100+b*10+c) = n*(a+b+c) then

            begin

               writeln(a,b,c:3);

               inc(d);

            end;

   writeln('Co ',d,' so thoa man');

   if d=0 then writeln('Khong co so nay!');

readln;

end.

Học tốt!

uses crt;
var x,y,z,n : integer;
begin clrscr;
write('Nhap n:'); readln(n);
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if n*(x+y+z) = x*100+y*10+z then
write('So thoa man de la :', x,y,z, ' ');
readln
end.