主题：急急急,急须PASCAL答案
lpj202
[专家分：0] 发布于 2006-09-22 13:03: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
回复列表 （共14个回复）
沙发
maxumi [专家分：2200] 发布于 2006-09-22 14:10:00
我一看到题目就知道我该收分了 恩
1.
program lx;
var
s:real;
i:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s);
end.
板凳
maxumi [专家分：2200] 发布于 2006-09-22 14:12:00
2.
program lx;
var
i,x,s:longint;
begin
readln(x);
s:=0;
for i:=1 to trunc(sqrt(x)) do
if x mod i=0 then begin
inc(s,i);
if sqr(i)<>x then inc(s,x div i);
end;
writeln(s);
end.
3 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:15:00
3.
program lx;
var
i,s1,s2:integer;
begin
for i:=1000 to 9999 do begin
s1:=i div 100;
s2:=i mod 100;
if sqr(s1+s2)=i then writeln(i);
end;
end.
4 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:18:00
4.
program lx;
var
ch:char;
s:integer;
begin
s:=0;
repeat
read(ch);
if (ch='A') or (ch='a') then inc(s);
until ch='#';
writeln(s);
end.
5 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:21:00
第5个, 同志们冲啊~~
program lx;
var
n:longint;
s:integer;
begin
readln(n);
s:=0;
while n>0 do begin
inc(s,n mod 10);
n:=n div 10;
end;
writeln(s);
end.
6 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:24:00
6.
program lx;
var
n,max:longint;
begin
max:=0;
while not eof do begin
read(n);
if n>max then max:=n;
end;
writeln(max);
end.
输入结束后请按Ctrl+Z,回车.
7 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:28:00
7.
program lx;
var
i,j,k:integer;
begin
for i:=0 to 10 do
for j:=0 to 50 do
for k:=0 to 33 do
if (50*i+10*j+k=500) and (i+j+k*3=100) then writeln(i,' ',j,' ',k);
end.
8 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:33:00
8.
program lx;
var
s,a,b,c,n:longint;
begin
readln(n);
if n=1 then begin writeln('0');halt; end;
if n=2 then begin writeln('1');halt; end;
a:=0;
b:=1;
s:=2;
while s<n do begin
inc(s);
c:=a+b;
a:=b;
b:=c;
end;
writeln(c);
end.
9 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:37:00
9.
program lx;
var
i:integer;
function prime(n:longint):boolean;
var
i:integer;
begin
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin
prime:=false;
exit;
end;
prime:=true;
end;
begin
for i:=3 to 100 do
if prime(i) then writeln(i);
end.
10 楼
maxumi [专家分：2200] 发布于 2006-09-22 14:42:00
program lx;
var
i,n:longint;
function prime(n:longint):boolean;
var
i:integer;
begin
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin
prime:=false;
exit;
end;
prime:=true;
end;
begin
readln(n);
for i:=2 to n div 2 do
if prime(i) and prime(n-i) then writeln(n,'=',i,'+',n-i);
end.
以上程序未经调试, 可能会有错, 自己调试一下吧.
此帖已被完美刷屏XD
我来回复
您所在位置：