Tin học 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 18/07/2021 By aihong 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 ạ!
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. Trả lời
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é*/.. Trả lời