Nhập vào một số nguyên dương n tìm số nguyên tố nhỏ nhất lớn hơn n

CHUYÊN ĐỀ CHIA HẾT – SỐ NGUYÊN TỐ

Nhập vào một số nguyên dương n. Hãy in ra số nguyên tố nhỏ nhất lớn hơn n.

VD: Nhập n = 10. Kết quả in ra số 11.

Giải thuật :

- Gán i := n ;

- Thực hiện cho đến khi i là nguyên tố việc tăng i lên 1.

Program Nguyen_to;

Var n,i:integer;

Function NT(n:integer):Boolean;

Var ok: Boolean;

     i: integer;

Begin

    ok:=true;

    for i:=2 to n-1 do

     if (n mod i)= 0 then ok:=ok and false;

     if n < 2 then NT:=false else NT:=ok;

End;

Begin

   Write('Nhap n: ');Readln(n);

   i:=n;

   Repeat i:=i+1;

   Until NT(i);

   Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);

   Readln

End.