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

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.

 

Bạn thấy bài viết này như thế nào?: 
Average: 9 (92 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Giới thiệu 50 best practices cho Optimize PHP code

Giới thiệu 50 best practices cho Optimize PHP code

Like any scripting language, PHP can be used in a variety of applications. The down-side for most programmers is that when they learn how to write PHP

MacBook Pro phiên bản "Late 2011" có gì mới?

MacBook Pro phiên bản "Late 2011" có gì mới?

Theo thử nghiệm của trang Macworld, những cập nhật về vi xử lý và đồ họa trong dòng sản phẩm Macbook Pro của Apple đã khiến hiệu suất của những thiết bị này tăng hơn so với các phiên bản trước.

Điểm mặt ba đối thủ mới của iPad 2

Điểm mặt ba đối thủ mới của iPad 2

Những người sử dụng máy tính bảng sẽ có thêm 3 thiết bị mới để so sánh với iPad 2 trong mùa lễ hội này, trong đó có Asus Eee Pad Transformer, máy tính bảng đầu tiên được trang bị chip lõi tứ Tegra 3 mới nhất của Nvidia.

Công ty diệt chuột T&C

 

Diet con trung