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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.   

   Bình luận