Question

Giúp mik vs ạ
Viết chương trình vào 1 số nguyên kiểm tra xem có phải là số nguyên tố chẵn hay lẻ?????

Mai mik ktra rùi huhuhuhuhuuhuh

Answer 1

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

write('nhap n='); readln(n);

if n>1 then

begin

kt:=0;

for i:=2 to n-1 do

if n mod i=0 then kt:=1;

if kt=0 then

begin

if n mod 2=0 then writeln(n,' la so nguyen to chan')

else writeln(n,' la so nguyen to le');

end

else writeln(n,' khong la so nguyen to');

end

else writeln(n,' khong la so nguyen to');

readln;

end.