số đẹp là tổng số có tổng các chữ số chia hết cho 9. Như vậy các số 9, 18, 27, 36,... là các số đẹp. Liệt kê các số đẹp nhỏ hơn hoặc bằng N
dùng free pascal
uses crt; var n,i:longint; function allOfNumber(n:longint):longint; begin allOfNumber:=0; while n<>0 do begin inc(allOfNumber,n mod 10); n:=n div 10; end; end; begin clrscr; readln(n); for i:=1 to n do if allOfNumber(i) mod 9=0 then write(i,' '); readln end.
Có một điều là: chỉ các số chia hết cho 9 mớ có tổng các chữ số chia hết cho 9.
uses crt; var n,i:longint; begin clrscr; write('Nhap n: ');readln(n); writeln('Cac so dep: '); for i:=1 to n do if i mod 9=0 then writeln(i); readln end.