5. in ra số nguyên tố có hai chữ số là số chẵn. pascal a. Ý tưởng: - Tìm số nguyên tố có hai chữ số. - Kiểm tra số nguyên tố vừa tìm có phải là số chẵn không?

1 câu trả lời

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=10 to 99 do 

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

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

if kt=0 then write(i:4);

end;

readln;

end.