Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không giúp mik vs hứa vote 5 sao

0 bình luận về “Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không giúp mik vs hứa vote 5 sao”

1. Read(n) ; dem:=0;

   For i:= 1 to n do 

   If n mod i = 0 then dem:= dem+ 1;

   If dem>2 then writeln(‘ n khong la so ng to);

   Else writeln (‘ n la so ng to’);

   Readln

   End.

   Bình luận

2. uses crt;
   var n,i:longint;
   kt:boolean;
   begin
    clrscr;
    write(‘nhap n:’); readln(n);
    kt:=true;
    for i:=2 to trunc(sqrt(n)) do //chung ta chi can chay den can bac 2 cua n de kiem tra xem n co phai so nguyen to hay khong
    begin
     if(n mod i=0) then begin kt:=false; break; end;
    end;
    if(kt=true) then writeln(n,’ la so nguyen to’)
    else writeln(n,’ khong phai so nguyen to’);
    readln;
   end.

   Bình luận