nhập n tìm tất cả các ước của n đếm xem n có bao nhiêu ước đưa ra các ước nguyên tố

0 bình luận về “nhập n tìm tất cả các ước của n đếm xem n có bao nhiêu ước đưa ra các ước nguyên tố”

1. uses crt;
   var n,i,j,dem:longint; d:text;
   function nt(a:longint):boolean;
   var i:longint;
      begin
         i:=2;
         while (a>1)and(a mod i<>0) do inc(i);
         nt:=i=a;
      end;
   begin
   clrscr;
      assign(d,’input.pas’);reset(d);
         readln(d,n);
      close(d);
      assign(d,’output.pas’);rewrite(d);
         write(d,’Cac uoc cua ‘,n,’ la: ‘);
         for i:=1 to n do if n mod i=0 then begin write(d,i,’;’); inc(Dem); end; writeln(d);
         write(d,’So uoc cua ‘,n,’ la: ‘,dem); writeln(d);
         write(d,’Cac uoc la so nguyen to cua ‘,n,’ la:’);
         for i:=1 to n do if (n mod i=0)and(nt(i)) then write(d,i,’;’);
      close(d);
   end.

   Bình luận

2. name a;

   uses crt;

   var n, i, j, c: integer;

   a: array [1..100]

   begin

   clrscr; readln (n);

   for i=2 to n do

   begin

   a[i]=i;

   if n mod a[i]=0 then for j=2 to a[i] do if a[i] mod j=0 then c=c+1

   end;

   write(c);readln;

   end.

   Chúc bạn thi tốt

   Bình luận