cách tìm ước số , ước sô nguyên tố trong pascal của 1 số n (n nhạp từ bàn phím)

0 bình luận về “cách tìm ước số , ước sô nguyên tố trong pascal của 1 số n (n nhạp từ bàn phím)”

1. Cách tìm ước số:

   uses crt;
   var i,n:longint;
   begin
   clrscr;
      write(‘N=’);readln(n);
      write(‘Cac uoc: ‘);
      for i:=1 to n do  
         if n mod i=0 then write(i,’ ‘);
   readln
   end.

   Cách tìm ước số nguyên tố:

   uses crt;
   var i,n:longint;
   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;
      write(‘N=’);readln(n);
      write(‘Cac uoc so nguyen to: ‘);
      for i:=1 to n do  
         if (n mod i=0)and(nt(i)) then write(i,’ ‘);
   readln
   end.

   Bình luận

2. * Ước số:

   uses crt;
   var n,i:longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do 
         if n mod i=0 then write(i,’ ‘); writeln;
   readln
   end.

   * Ước số nguyên tố:

   uses crt;
   var n,i:longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
      nt:=true; i:=2;
      while (a>1) and (a mod i<>0) do inc(i);
      if i<>a then exit(false);
   end;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do 
         if (n mod i=0) and (nt(i)) then write(i,’ ‘); writeln;
   readln
   end.

   Bình luận