viết chương trình kiểm tra xem một số có phải là số nguyên tố không!! giúp em với

0 bình luận về “viết chương trình kiểm tra xem một số có phải là số nguyên tố không!! giúp em với”

1. Program SO_NGUYEN_TO;
   Uses crt;
   Var i,n: integer;
   Begin
   Clrscr;
   Writeln(‘KIEM TRA SO NGUYEN TO:’);
   Writeln(‘—————————‘);
   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. nè bn:)) 

   chúc bạn học tốt nha :))

   Program SO_NGUYEN_TO;
   Uses crt;
   Var i,n: integer;
   Begin
   Clrscr;
   Writeln(‘KIEM TRA SO NGUYEN TO:’);
   Writeln(‘—————————‘);
   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