回 帖 发 新 帖 刷新版面

主题:需要PASCAL答案

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个回复)

沙发

我觉得除了第十题外 其他的都很简单 简单的循环就可以搞定
至于10 如果没有上限 就是不可思议的任务

板凳


第三题
 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 楼


第三题
 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 楼



不好意思,第二楼少打了个  then

5 楼

这是哪的题啊,好象很简单的
需要答案的话加我QQ59691821

6 楼

简单啊!!

7 楼

第十题的话
 你是要编程出来 还是数学证明呢?
 如果没有上限的话 编程是很难做出来的哦!

8 楼


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 楼

开个玩笑:
如果没有上限,可以用直到循环或者是当循环,等到找到不符合条件的数字就退出循环并且打印不就结了?
当然,第10题应该有个上限.

我来回复

您尚未登录,请登录后再回复。点此登录或注册