viết Trương trình nhập vào số nguyên dương n. kiểm tra xem n có phải là số nguyên tố ko

0 bình luận về “viết Trương trình nhập vào số nguyên dương n. kiểm tra xem n có phải là số nguyên tố ko”

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

   Bình luận

2. var kt: boolean;

         N, i: word;

   Begin

        Write(‘n = ‘); readln(n);

        Kt:=true;

        If n<2 then kt:=false

        Else for i:=2 to trunc(sqrt(n)) do

              If n mod i=0 then kt:=false;

        If kt then write(‘la so nguyen to’)

        Else write(‘khong phai so nguyen to’);

        Readln

   End.

   Bình luận