Viết chương trình nhận biết số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố không?

0 bình luận về “Viết chương trình nhận biết số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố không?”

1. program so_nguyen_to;

   Var

           n,i,dem:longint;

   Begin

           write(‘Nhap N: ‘); readln(n);

           dem:=1;

           For i:=1 to n div 2 do if n mod i=0 then dem:=dem+1;

           If dem=2 then write(n,’ la so nguyen to’) else write(n,’ khong la so nguyen to’);

           Readln;

   End.

                    ______Chúc bạn học tốt_______

   Bình luận

2. program nguyen_to;

   uses crt;

   var n,i,d:integer;

   begin

          clrscr;

          write(‘Nhap N: ‘);   readln(n);

          if n<2 then write(n,’ khong phai so nguyen to’)

          else

                 begin

                        d:=0;

                        for i:=1 to n do

                               if n mod i=0 then d:=d+1;

                        if d=2 then write(n,’ la so nguyen to’)

                               else write(n,’ khong phai so nguyen to’);

                 end;

          readln;

   end.

   Bình luận