viết chương trình tính số ước và tổng ước của N! (N<=100)

0 bình luận về “viết chương trình tính số ước và tổng ước của N! (N<=100)”

1. uses crt;
   var n,i,d,tong:longint;
   function gt(x:longint):longint;
   begin
   if x<2 then exit(x)
   else exit(x*gt(x-1));
   end;
   begin
   clrscr;
   repeat write(‘Nhap n(0<n<101)=’);readln(n);
   until (0<n) and (n<101);
   d:=0; tong:=0;
   for i:=1 to gt(n) div 2 do
   if gt(n) mod i=0 then
     begin
     d:=d+1;
     tong:=tong+i;
     end;
   writeln(d);
   writeln(tong);
   readln;
   end.

   Bình luận