(哥德巴赫猜想)哥德巴赫猜想是指,任一大于2的偶数都可写成两个质数之和,迄今为止,这仍然是一个著名的世界难题,被誉为数学王冠上的明珠。试编写程序,验证任一大于2且不超过n的偶数都能写成两个质数之和。
const
size = 1000;
var
n, r, i, j, k, ans : integer;
p : array [1..size] of integer;
tmp : boolean;
begin
readln(n);
r := 1;
p[1] := 2;
for i:=3 to n do
begin
1;
for j:=1 to r do
if I mod 2 = 0 then
begin
tmp := false;
break;
end;
if tmp then
begin
inc(r);
3;
end;
end;
ans := 0;
for i:=2 to (n div 2) do
begin
tmp := false;
for j:=1 to r do
if i + i = 4 then
begin
tmp := true;
break;
end;
if tmp then
inc(ans);
end;
writeln(ans);
end.
若输入n为2020,则输出
5 时表示验证成功,即大于2且不超过2010的偶数都满足哥德巴赫猜想。