viết chương trình kiểm tra N có phải là số nguyên tố không? (while-do)

0 bình luận về “viết chương trình kiểm tra N có phải là số nguyên tố không? (while-do)”

1. program phuongt;
   uses crt;
    var n, s, i: integer;
   begin
             clrscr;
            write(‘Nhap n = ‘); readln(n);
            s:=0; i:=1;
            if n<2 then write(n, ‘ khong phai so nguyen to’);
            if n=2 then write(n, ‘ la so nguyen to’);
            if n>2 then
            while i<=n do
            begin
                         if n mod i = 0 then s:=s+1;
                         i:=i+1;
           end;
           if (s=2) then write(n, ‘ la so nguyen to’) else write(n, ‘ khong la so nguyen to’);
           readln
   end.

   Bình luận

2. program nguyen_to;

   uses crt;

   var n,i:integer;

   begin

          clrscr;

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

          if n<2 then write(‘Khong phai’)

          else

                 begin

                        i:=2;

                        while n mod i<>0 do i:=i+1;

                        if i=n then write(‘Phai’)

                               else write(‘Khong phai’)

                 end;

          readln;

   end.

   Bài sẽ chạy nhanh hơn là chạy thẳng 1 mạch từ 1 đến n để đếm ước.

   Bình luận