viết chương trình nhâp vào 1 số và kiểm tra nó có phải là số nguyên tố hay ko

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

1. program bt1;

   Uses crt;
   Var i,n: integer;
   Begin
   Clrscr;
   Write (‘Nhap so can kiem tra n = ‘); readln(n);
   If (n=0) or (n=1) then
    Writeln(n,’ Khong phai la so nguyen to’)
   Else
   Begin
   i:=1;
   Repeat
   i:= i+1;
   Until (n mod i= 0) or (i*i>n);
   If i*i>n then
   Writeln (n,’ la so nguyen to’)
   Else
   Writeln (n,’ khong phai la so nguyen to’);
   End;
   Readln;
   End.

   Bình luận

2.     Uses crt;
       Var i,n: integer;
      Begin
       Clrscr;
       Write (‘Nhap so can kiem tra n = ‘); readln(n);
       If (n=0) or (n=1) then
            Writeln(n,’ Khong phai la so nguyen to’)
            Else
           Begin
            i:=1;
            Repeat
             i:= i+1;
            Until (n mod i= 0) or (i*i>n);
            If i*i>n then
             Writeln (n,’ la so nguyen to’)
            Else
             Writeln (n,’ khong phai la so nguyen to’);
           End;
       Readln;
      End.

   Bình luận