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!