viết chương trình xét xem 1 số n có phải là 1 số nguyên tố hay không ? dùng pascal viết chương trình

0 bình luận về “viết chương trình xét xem 1 số n có phải là 1 số nguyên tố hay không ? dùng pascal viết chương trình”

1. Program SNT;
   Uses crt;
   Var n: longint;

   Function ngto(a:longint):boolean;
   Var i: longint;
   Begin
           If i<2 then exit(false);
           For i:=2 to n div 2 do
                   If n mod i = 0 then exit(false);
                                       exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           If ngto(n) then Write(n,’ la so nguyen to’)
           Else Write(n,’ khong phai la so nguyen to’);
           Readln
   End.

   —————————-

   Có gì không hiểu bạn cứ để lại facebook, mình sẽ chủ động nhắn tin và giải thích cho bạn ^^

   Bình luận

2. Uses crt;

   Var N,i,d : Word;

   Begin

           If N<2 Then Writeln(N,’ khong phai la so nguyen to’)

          Else

            Begin

              d:=0;

              For i:=2 To N div 2 Do

              If N MOD i=0 Then

             d:=d+1;

             If d=0 Then Writeln(N,’ la so nguyen to’)

            Else Writeln(N,’ khong phai la so nguyen to’);

          End;

   Readln;

   End.

   Bình luận