pascal验证歌德巴赫猜想Description 对于6~1000中的偶数,验证歌德巴赫猜想:任一个大偶数(大于等于6的偶数)总可以分解成二个质数之和.输入:一个大于6的偶数输出:把这个偶数表示成两个质数

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/28 06:09:10
pascal验证歌德巴赫猜想Description对于6~1000中的偶数,验证歌德巴赫猜想:任一个大偶数(大于等于6的偶数)总可以分解成二个质数之和.输入:一个大于6的偶数输出:把这个偶数表示成两个

pascal验证歌德巴赫猜想Description 对于6~1000中的偶数,验证歌德巴赫猜想:任一个大偶数(大于等于6的偶数)总可以分解成二个质数之和.输入:一个大于6的偶数输出:把这个偶数表示成两个质数
pascal验证歌德巴赫猜想
Description
对于6~1000中的偶数,验证歌德巴赫猜想:任一个大偶数(大于等于6的偶数)总可以分解成二个质数之和.
输入:一个大于6的偶数
输出:把这个偶数表示成两个质数之和,如有多解,全部输出.
样例输入 Sample Input
10
样例输出 Sample Output
3+7
5+5
时间限制 Time Limitation
各个测试点1s

pascal验证歌德巴赫猜想Description 对于6~1000中的偶数,验证歌德巴赫猜想:任一个大偶数(大于等于6的偶数)总可以分解成二个质数之和.输入:一个大于6的偶数输出:把这个偶数表示成两个质数
var i,j,co,n:longint;
a:array[1..1000] of longint;
begin
read(n);
for i:=2 to 1000 do begin
for j:=2 to trunc(sqrt(i)) do if i mod j=0 then break;
if i mod j=0 then continue;
inc(co);
a[co]:=i;
end;
for i:=1 to co do
for j:=i to co do if a[i]+a[j]=n then writeln(a[i],'+',a[j])
end.