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

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

Viết một bình luận