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.