Lập trình tìm tất cả các ước của một số nguyên cho trước

0 bình luận về “Lập trình tìm tất cả các ước của một số nguyên cho trước”

1. uses crt;

   var n,i:integer;

   BEGIN

           clrscr;

           write(‘Nhap n:’); readln(n);

           write(‘Cac uoc cua so ‘,n,’ la:’);

           for i:=1 to n do

                   if n mod i =0 then write(i,’ ‘);

          readln

   END.

   Chúc bạn học tốt!

   Bình luận

2. Dài nhưng chương trình chạy nhanh nha, nó sẽ lợi ích hơn.

   program uocso;

   uses crt;

   var n,i:integer;

   begin

   clrscr;

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

   write(‘Cac uoc cua ‘,n,’ la: ‘);

   for i:=1 to n div 2 do

    if n mod i=0 then write(i,’ ‘);

   {chỉ chạy tới n div 2 thôi cho nhanh vì sau n div 2 không còn số nào để n chia hết nữa trừ n}

   write(n);  {Vì n cung la uoc cua n}

   readln

   end.

   Nếu thấy hay thì cho mình ctlhn nha.

   Bình luận