Một số khái niệm về lập trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đặng Thảo Yến Nhi

Giải hộ ạ!

Hãy tìm tất cả các số nguyên tố trong đoạn [A;B]

Input

Gồm 2 số nguyên AB cách nhau bởi 1 dấu cách (1<=A<=B<=107)

Output

Ghi ra tất cả các số nguyên tố trong khoảng [A;B]. Mỗi số trên 1 dòng.

Ví dụ

Input:

1 10

Output:

2

3

5

7

Minh Lệ
8 tháng 12 2019 lúc 20:02

Program hotrotinhoc;

var a,b,i: word;

function nt(x: word) : boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=6;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

i:=i+5;

end;

nt:=true;

end;

begin

readln(a,b);

for i:=a to b do if nt(i) then writeln(i);

readln

end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
10 tháng 12 2019 lúc 12:50

uses crt;

var a,b,kt,i,j:integer;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap b='); readln(b);

if a<b then

begin

for i:=a to b do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then writeln(i);

end;

end;

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Khánh Hằng Mai
Xem chi tiết
Dương Văn Nam
Xem chi tiết
bui pham phuong Uyen
Xem chi tiết
Huân Võ
Xem chi tiết
Ta Nobi
Xem chi tiết
Long Thiên
Xem chi tiết
Nguyễn trọng toàn
Xem chi tiết
Long Thiên
Xem chi tiết
Vocie The
Xem chi tiết