viết chương trình kiểm tra xem n có phải thừa số nguyên tố hay không

0 bình luận về “viết chương trình kiểm tra xem n có phải thừa số nguyên tố hay không”

1. uses crt;
   var n:longint;
   function nt(n:longint):boolean;
   var i:longint;
   begin
       if n<2 then exit(false);
       for i:=2 to trunc(sqrt(n)) do
          if n mod i = 0 then exit(false);
       exit(true);
   end;
   begin
       clrscr;
       readln(n);
       if nt(n)=true then write(n,’ la thua so nguyen to’)
          else write(n,’ khong phai la thua so nguyen to’);
   readln;
   end.

   Bình luận

2. Uses crt;
   Var n:longint;
   Function nt(n:longint):boolean;
   Var i:longint;
   Begin
   If n<=1 then exit(false) else
   For i:=2 to (N div 2)+1 Do
   If (N mod i=0)And(I<>N) then exit(false);
   Exit(true);
   End;
   Begin
   Clrscr;
   Readln(n); Writeln(nt(n));
   Readln
   End.

   Bình luận