Tin học Viết chương trình nhập một số và kiểm tra đó có phải là số nguyên tố? 13/07/2021 By Rylee Viết chương trình nhập một số và kiểm tra đó có phải là số nguyên tố?
Program Tin_hoc; Uses crt; Var i,n: longint; res: boolean; Begin Writeln(‘Nhap n: ‘); Readln(n); res:=true; For i:=2 to trunc(sqrt(n)) do If n mod i = 0 then res:=false; If res=false then write(n,’ khong phai la so nguyen to’) else write(n,’ la so nguyen to’); Readln End. Trả lời
Program nguyên_tố; Uses Crt; Var n,d,k:longint; Begin Clrscr; write(‘n=’); Readln(n); k:=0; For d:=1 to n do If n mod d = 0 then k:=k+1; If k=2 then write (‘n là số nguyên tố’); Readln; End. Trả lời