Tin học tìm số nguyên tố nhỏ nhất ______________=======__________________KO ĐÚNG CHỦ ĐỀ BC+0* 26/07/2021 By Rose tìm số nguyên tố nhỏ nhất ______________———————__________________KO ĐÚNG CHỦ ĐỀ BC+0*
program ntonhonhat; uses crt; var n,i,l:integer; kt:boolean; begin clrscr; write(‘Nhap n: ‘); readln(n); i:=n; kt:=false; while kt=false do begin inc(i); kt:=true; for l:=2 to trunc(sqrt(i)) do if i mod l=0 then kt:=false; end; write(‘SNT nho nhat sau ‘,n,’ la: ‘,i); readln end. Trả lời