21/11/2023
21/11/2023
Đợi chút
21/11/2023
uses crt;
var n,i,j,d:longint;
a:array[1..10000000] of boolean;
procedure sang(n:longint);
var i,j:longint;
begin
fillchar(a,sizeof(a),true);
a[1]:=false;
for i:=2 to trunc(sqrt(n)) do
if (a[i]=true) then
begin
j:=i*i;
while j<=n do
begin
a[j]:=false;
j:=j+i;
end;
end;
end;
begin
clrscr;
readln(n);
sang(n);
for i:=2 to n-1 do // chưa tìm dc cách tối ưu 2 vòng for này :v cao nhân nào chỉ vớii
for j:=i+1 to n-i do
if (a[i]=true) and (a[j]=true) and (a[i+j]=true) then
d:=d+1;
write(d);
readln
end.
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời