Question

关于pascal的几道编程练习题

1、求出能被5整除的所有四位数的和。

2、S=12+22+32……+1002

3、输出100 以内的全部素数，要求每行显示5 个。

4、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上想再吃时，只剩下一个桃子了。求第一天共摘了多少桃子。

5、A、B、C三人进入决赛，赛前A说：“B和C得第二，我得第一”；B说：“我进入前两名，丙得第三名”；C说：“A不是第二，B不是第一”。比赛产生了一、二、三名，比赛结果显示：获得第一的选手全说对了，获得第二的选手说对了一句，获得第三的选手全说错了。编程求出A、B、C三名选手的名次。

Answer 1

1.
var
sum,i:longint;
begin
for i:=1000 to 9999 do if i mod 5=0 then sum=sum+i;
writeln(Sum);
end.

2.
var
i,sum:longint;
begin
for i:=1 to 100 do sum=sum+10*i+2;
writeln(Sum);
end.

3.
var i,j,t:longint;k:boolean;
begin
for i:=2 to 97 do
begin
k=0;for j:=2 to trunc(sqrt(i))do if i mod j=0 then begin k=1;break;end;
if k=0 then
begin
inc(t);
if t mod 5=0 then writeln(i) else write(i,' ');
end;
end;
end.

4.
var sum,i:longint;
begin
sum=1;
for i:=1 to 9 do sum=2*(sum+1);
writeln(sum);
end.