主题:需要PASCAL答案
lpj202
[专家分:0] 发布于 2006-09-22 12:52:00
1. 计算s=1+1/2+1/3+1/4+……+1/100
2. 键入一个自然数x,求这个自然数的所有约数之和s。
3. 编程找出四位数abcd满足下述关系的数:
(ab+cd)(ab+cd)=abcd
4. 输入若干个字符,它的终止符是‘#’,计算输入的字母‘a’出现的次数(包括大小写)。
5. 求输入的一个整数的各位数字之和。
6. 从n个数中挑选出最大的数。
7. 用5元钱买100个纽扣,其中金属纽扣每只5角,有机玻璃纽扣每只1角,小纽扣1分钱买3个,编程求各种纽扣各买了多少只?
8. 已知:faibonacci(费波那契)数列的前几个数分别为0,1,1,2,3,5,8,……,编程求此数列的第n项,前n项
9. 求3~~100之间的所有质数。
10.验证歌德巴赫猜想:任一充分大的偶数,可以用两个素数之和来表示,例如:
4=2+2
6=3+3
8=3+5
98=19+79
回复列表 (共9个回复)
沙发
Benix [专家分:720] 发布于 2006-09-24 22:30:00
我觉得除了第十题外 其他的都很简单 简单的循环就可以搞定
至于10 如果没有上限 就是不可思议的任务
板凳
wyb5699987 [专家分:40] 发布于 2006-09-25 21:26:00
第三题
var i,j:integer;
begin
for i:=10 to 99 do
for j:=10 to 99 do
begin
if((i+j)*(i+j)=(100*i+j))
writeln('(',i,'+',j,')*(',i,'+',j,')=',i,j);
end;
end.
3 楼
wyb5699987 [专家分:40] 发布于 2006-09-25 21:26:00
第三题
var i,j:integer;
begin
for i:=10 to 99 do
for j:=10 to 99 do
begin
if((i+j)*(i+j)=(100*i+j)) then
writeln('(',i,'+',j,')*(',i,'+',j,')=',i,j);
end;
end.
4 楼
wyb5699987 [专家分:40] 发布于 2006-09-25 21:27:00
不好意思,第二楼少打了个 then
5 楼
bsralph [专家分:10] 发布于 2006-09-26 10:44:00
这是哪的题啊,好象很简单的
需要答案的话加我QQ59691821
6 楼
爱娇的人 [专家分:0] 发布于 2006-10-13 20:19:00
简单啊!!
7 楼
dorremon1992 [专家分:870] 发布于 2006-10-14 19:27:00
第十题的话
你是要编程出来 还是数学证明呢?
如果没有上限的话 编程是很难做出来的哦!
8 楼
amyhab [专家分:120] 发布于 2006-10-15 16:36:00
8.Var
i,n:integer;
a:array[1..1000]of longint;
Begin
read(n);
a[1]:=0;
a[2]:=1;
for i:=1 to n do
a[i]:=a[i-1]+a[i-2];
write(a[n]);
end.
______________________________________________________________________
我初学3年.
9 楼
bigchen [专家分:1940] 发布于 2006-10-25 21:59:00
开个玩笑:
如果没有上限,可以用直到循环或者是当循环,等到找到不符合条件的数字就退出循环并且打印不就结了?
当然,第10题应该有个上限.
我来回复