Viết 1 hàm kiểm tra 1 số nguyên x có phải là số nguyên tố không? Ứng dụng hàm này hãy tìm: a. Số nguyên tố nhỏ nhất có 3 chữ số. b. Số nguyên tố lớn nhất có 3 chữ số. Giúp mk đg gấp ạ!

120127962550068

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 39 xem

1 trả lời

Thích Trả lời

yennguyen4112001

program nguyen_to;

uses crt;

var n:integer;

{---ham-nguyen-to---}

function ktnt(x:integer):boolean;

var r:integer;

begin

ktnt:=false;

for r:=2 to trunc(sqrt(x)) do

if x mod r=0 then exit;

ktnt:=true;

end;

{---Chuong-trinh-chinh---}

BEGIN

clrscr;

n:=100;

while ktnt(n)=false do n:=n+1;

writeln('So nguyen to nho nhat co 3 chu so la: ',n);

n:=999;

while ktnt(n)=false do n:=n-1;

writeln('So nguyen to lon nhat co 3 chu so la: ',n);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

quynh12b5ykb

Var a,b,c,m,s:longint;
Function NT(a:longint):longint;
Var s,c:longint;
Begin
s:=0;
For c:=2 to Trunc(sqrt(a)) do
If a mod c = 0 then
Begin
s:=1;
Break;
end;
NT:=s;
end;
Begin
For b:=100 to 999 do If NT(b)=0 then Break;
writeln('be nhat',b);
For b:=100 to 999 do If NT(b)=0 then m:=b;
Writeln('lon nhat',m);
readln;
end.

../Cho mình 5* nhé*/..

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Bài hát ca - chiu - sa thể hiện

Tìm các số có 3 chữ số chia hết cho 7 và tổng các chữ số của nó bằng 14

Ai giải giúp mình với, mình cảm ơn nhiều lắm luôn (mình hết xu r ai thương giải giúp đi)

Giải giùm mình với ạ Cho 7,6 gam ancol X đa chức tác dụng vừa đủ với k thu được 2,24 lít khí hidro và m gam muối ancolat a, xác định công thức phân tử b, xác định giá trị M c, biết hoà tan được Cu(OH)2. Xác định công thức cấu tạo của X

Cảm nhận của em sau khi học xong bài thực hành (bài 57) not coppy Ai nhanh cho ctrlhn

Tính: B=2-4-6+8+10-12-14+...-2014+2016+2018-2020

Giúp mình 1 câu này với ạ, mai mình phải nộp r

Nêu cảm nhận của em về khổ thơ sau: Bố em đi cày về Đội sấm Đội chớp Đội cả trời mưa Không chép mạng nha !

Điền tên các châu lục và tên các đại dương trên Trái Đất vào bảng dưới đây;-;

Trung bình số tem mà Nam và Hải sưu tầm được là 80 cái. Số tem của Nam bằng 3/5 số tem của Hải. Hỏi mỗi bạn sưu tầm được bao nhiêu cái tem

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến