Question

Viết chương trình con trong pascal in ra số nguyên tố có hai chữ số chẵn. Giúp với ạ mik đang cần gấp!!

Answer 1

Program HOC24;

var i: integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

Begin

for i:= 10 to 99 do if nt(i) and i mod 2=0 then write(i,' ');

readln

end.