Pascal练习题

Pascal习题及答案
1、计算S=1-1/2+1/3-1/4+1/5+……+1/99的值。

2、獐十八（斤），兔三斤，鸳鸯二两五不动秤，九十九只一百斤，獐、兔、鸳鸯各多少？
3、Armstrong数是指一个n位自然数，其各位数字之3次方的和等于该数。

求
出所有三位数的Armstrong数。

如153=13+53+33。

4、有一个四位数①它是一个完全平方数②千位数和百位数相等，十位数和个位
数相等。

求这个四位数。

5、有N盏灯放在一排，从1到N依次编号，有N个人也从1到N依次编号，
第一个人将灯全部打开，第二个人将凡是2的倍数的灯全部关闭，第三个人
将凡是3的倍数的灯作相反处理，第4、5、……、N个人都把自己编号的倍
数的灯作相反处理。

问第N个人走过后，哪些灯是开着的？
6、小猴子摘了一堆桃，第一天吃了一半，还嫌不过瘾，又多吃了一个；第二天
又将剩下的桃子吃了一半加一个；以后天天如此，到第十天，小猴一看，只
剩一个桃子了。

问最初有多少个桃子。

7、卖金鱼的人将缸里的金鱼分五次全部卖出:第一次卖出全部金鱼的二分之一
加二分之一条,第二次卖出剩余金鱼的三分之一加三分之一条,第三次卖出剩
余金鱼的四分之一加四分之一条,第四次卖出剩余金鱼的五分之一加五分之
一条,现还剩下11条金鱼,问这鱼缸里原有多少条金鱼?
参考答案：
1、var a,b:integer;
s:real;
begin
a:=1;
for i:=1 to 19 do
begin
s:=s+a*(1/b);
a:=-1*a;
end;
writeln('s=',s)
end.
2、var a,b:integer;
begin
for a:=1 to 5 do
for b:=1 to 33 do
if 18*a+3*b+(99-a-b)*0.25=100
then writeln(a,b,99-(a+b));
end.
3、var a,b,c,d:integer;
begin
for d:=100 to 999 do
begin
a:=d div 100;
b:=(d mod 10-d div 10) div 10;
c:=d mod 10;
if d:=a*a*a+b*b*b+c*c*c
then write(d);
end;
end.
4、var i,x:integer;
begin
for i:=11 to 99 do
if (i*i div 1000=(i*i mod 1000) div 100) and (i*i mod 10) then x:=i*i;
write('daanshi',x);
end.
5、var n,i,j:integer;
m:boolean;
begin
read(n);
for i:=1 to n do
begin
m:=true;
for j:=2 to i do
if i/j=i div j then m:=not(m);
if m=true then writeln(i, ':open'); end;
end.
6、var a,i:integer;
begin
a:=1;
for i:=9 down to 1 d0
a:=(a+1)*2;
write(a);
end.
7、var n,i:integer;
m:real;
begin
n:=13;
repeat
n:=n+2;
m:=n;
for i:= 2 to 5 do
if (m+1)/i <> trunc ((m+1)/i) then
begin
n:=n+2;
m:=n;
end;
else
m:=m-(m+1)/i; until m=11; write(n) end.。