Question

Pascal语言:对6~1000内的偶数验证哥德巴赫猜想：任何一个大于6的偶数总可以分解为两个素数之和。

输入：n,
输出：符合条件的偶数和素数。
如：
输入：10
输出：8=3+5
10=5+5

Answer 1

var f:array[1..1000] of integer;
i,j,n,a,b,c:integer;
function prime(n:integer):boolean;//判断是否是质数
var i:integer;
begin
if(n<=1)then exit(false);
for i:=2 to 34 do
if(n mod i=0)and(n<>i) then exit(false);
exit(true);
end;
begin
readln(a);
for i:=2 to 500 do//循环
if(prime(i))and(prime(a-i))then
writeln(a,'=',i,'+',a-i);
end.

追问

不是输出这个，看看格式