Question

PASCAL题目

第一题：求和（sum）

输入n(1<=n<=5000)个正整数，每个数都在1到20000之间；要求对这n个数中的奇数和偶数分别求和。

输入格式：
第一行，一个正整数n，1<=n<=5000
第2～n+1行,每行一个正整数，每个数都在1到20000之间

输入样例：（sum.in）
5
3
10
7
5
8

输出格式：
输出文件共有二行，每行包含一个整数，第一行为输入文件中的所有奇数之和，第二行为输入文件中的所有偶数之和。

输出样例：（sum.out）
15
18

第二题：哥德巴赫猜想（guess）

1742年6月7日哥德巴赫写信给当时的大数学家欧拉，正式提出了以下的猜想：任何一个大于9的奇数都可以表示成3个质数之和。质数是指除了1和本身之外没有其他约数的数，如2和11都是质数，而6不是质数，因为6除了约数1和6之外还有约数2和3。需要特别说明的是1不是质数。

这就是哥德巴赫猜想。欧拉在回信中说，他相信这个猜想是正确的，但他不能证明。

从此，这道数学难题引起了几乎所有数学家的注意。哥德巴赫猜想由此成为数学皇冠上一颗可望不可及的“明珠”。

现在请你编一个程序验证哥德巴赫猜想。

输入格式：
输入文件仅有一行包含一个正奇数n，其中n大于9并且小于10000。

输入样例：（guess.in）
2009

输出格式：
输出文件仅有一行，输出3个质数，这3个质数之和等于输入的奇数。相邻两个质数之间用一个空格隔开，最后一个质数后面没有空格。如果表示方法不唯一，请输出第一个数最小的方案，如果第一个数最小的方案还不唯一，请输出第二个数最小的方案。

输出样例：（guess.out）
3 3 2003

第三题：奶牛的相似性（likecow）

农夫约翰有两头奶牛，他想要知道，这两头奶牛到底有多相似，所以他给每头奶牛拍了M*N(指M行N列)的数码相片，他想要你写一个程序帮助他。
M*N的数码相片可以分辩出奶牛身上黑色和白色的斑块，下面是两头奶牛的数码照片('X'表示黑色部分，'.'表示白色部分)，其中M=5，N=7。
奶牛 1 奶牛 2
..X.... ...X...
.XXX... ..XX...
.XX.... .XX....
.....X. .XX..X.
.X...X. .X...X.
要比较这两头奶牛，照片上的每一部分都必须仔细检查。每一个小块将有一个“相似性的得分”，相同得1分，不相同得0分。上面的那两头奶牛可以得到30分，因为他们只有5个地方不相同(详见下图中的"#")。
++##+++
+#+++++
+++++++
+##++++
+++++++
现在给你两头奶牛的照片，你的任务就是找出它们的“相似性得分”。

输入格式：
输入文件第一行包含两个用空格隔开的整数M和N，其中M和N都不超过50，表示两头奶牛的数码相片都是M行N列的。第2行到第M+1行为奶牛一的数码照片，第M+2行到第2*M+1行为奶牛二的照片，为方便处理我们用1表示黑色部分，用0表示白色部分，相邻两个数字之间用一个空格隔开。(详见样例)

样例输入：(likecow.in)
5 7
0 0 1 0 0 0 0
0 1 1 1 0 0 0
0 1 1 0 0 0 0
0 0 0 0 0 1 0
0 1 0 0 0 1 0
0 0 0 1 0 0 0
0 0 1 1 0 0 0
0 1 1 0 0 0 0
0 1 1 0 0 1 0
0 1 0 0 0 1 0

输出格式：
输出文件仅一行包含一个整数表示要求的两头奶牛的“相似性得分”。

样例输出：(likecow.out)
30

Answer 1

1.
var
a,b,i,m,n:longint;
t:text;
begin
a:=0;
b:=0;
readln(m);
for i:=1 to m do
begin
readln(n);
if n mod 2=0 then a:=a+n else b:=b+n;
end;
writeln(b);
writeln(a);
end.
2.
var
a:array[1..10000] of boolean;
i,j,k,n,m:longint;
f:boolean;
t:text;
procedure oo;
var
i,j,k:longint;
f:boolean;
begin
for i:=2 to 10000 do
begin
f:=false;
for j:=2 to trunc(sqrt(i)+1) do
if i mod j=0 then
begin
f:=true;
break;
end;
if f=false then a[i]:=true;
end;
end;
begin
f:=false;
readln(n);
oo;
for i:=1 to n do
begin
for j:=1 to n do
if (n-i-j>1)and(a[i]=true)and(a[j]=true) then
if a[n-i-j]=true then begin
writeln(i,' ',j,' ',n-i-j);
f:=true;
break;
end;
if f=true then break;
end;
end.
3.
var
a:array[1..100,1..100] of integer;
max,i,j,k,n,m:longint;
t:text;
begin
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
read(a[i,j]);
readln();
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
read(k);
if k=a[i,j] then inc(max);
end;
readln();
end;
writeln(max);
end.

Answer 2

var
a,b,i,m,n:longint;
t:text;
begin
a:=0;
b:=0;
readln(m);
for i:=1 to m do
begin
readln(n);
if n mod 2=0 then a:=a+n else b:=b+n;
end;
writeln(b);
writeln(a);
end.
2.
var
a:array[1..10000] of boolean;
i,j,k,n,m:longint;
f:boolean;
t:text;
procedure oo;
var
i,j,k:longint;
f:boolean;
begin
for i:=2 to 10000 do
begin
f:=false;
for j:=2 to trunc(sqrt(i)+1) do
if i mod j=0 then
begin
f:=true;
break;
end;
if f=false then a[i]:=true;
end;
end;
begin
f:=false;
readln(n);
oo;
for i:=1 to n do
begin
for j:=1 to n do
if (n-i-j>1)and(a[i]=true)and(a[j]=true) then
if a[n-i-j]=true then begin
writeln(i,' ',j,' ',n-i-j);
f:=true;
break;
end;
if f=true then break;
end;
end.
3.
var
a:array[1..100,1..100] of integer;
max,i,j,k,n,m:longint;
t:text;
begin
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
read(a[i,j]);
readln();
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
read(k);
if k=a[i,j] then inc(max);
end;
readln();
end;
writeln(max);
end.

Answer 3

program
t;
var
year,i,n:integer;
n1,n2,n3,n4,tpn,alln:longint;
begin
n1:=1;
n2:=0;
n3:=0;
n4:=0;
alln:=1;
n:=4;
readln(year);
for
i:=2
to
year
do
begin
tpn:=n3;
n3:=n2;
n2:=n1;
n1:=n4+tpn;
n4:=n1;
alln:=n1+n2+n3+n4;
{writeln('Year|
',i,'
n1|
',n1,'
n2|
',n2,'
n3|
',n3,'
n4|
',n4,'
ALL|
',alln);}
end;
writeln(alln);
{readln;}
end.
注释1是显示每年的各个阶段牛数量，Year
年份，
n1
,
n2
,
n3
,
n4
出生第一年牛
，出生第二年牛
，出生第三年牛，第四年变母牛并生个小牛
注释2按任意键结束。