Viết chương trình xem xét một số n có phải là số nguyên tố hay không ?
INPUT:5 OUTPUT: 5 la so nguyen to
INPUT:6 OUTPUT:6 khong phai la so nguyen to
Viết chương trình xem xét một số n có phải là số nguyên tố hay không ?
INPUT:5 OUTPUT: 5 la so nguyen to
INPUT:6 OUTPUT:6 khong phai la so nguyen to
var n, i, dem:integer;
begin
write(‘N= ‘);readln(n);
for i:=2 to n-1 do
if n mod i=0 then dem:=dem+1;
if dem=0 then write(n,’ la so nguyen to’) else write(n,’ khong phai la so nguyen to’);
end.
program bt;
var
n, i, dem:integer;
begin
write(‘Moi ban nhap n: ‘);readln(n);
for i:=1 to n do if n mod i=0 then dem:=dem+1;
if dem=2 then write(n,’ la so nguyen to’) else write(n,’ khong la so nguyen to’);
readln;
end.
#Thuat_nay_khong_toi_uu_lam_nhung_chac_ban_se_hieu
#Chuc_ban_hoc_tot