uses crt; var n,i,s,m:longint; begin readln(n); for i:=1 to n-1 do begin m:=i;s:=0; while m <> 0 do begin s:=s + (m mod 10); m:=m div 10; end; if i mod s = 0 then write(i,' '); end; readln; end.
uses crt; var n,i,tong,a:longint; begin clrscr; write('Nhap n: ');readln(n); for a:=1 to n do begin tong:=0; i:=a; while i<>0 do begin inc(tong,i mod 10); i:=i div 10; end; if a mod tong=0 then writeln(a); end; readln end.
