UC知道急急急,帮我编PASCAL
来源：百度知道 编辑：UC知道 时间：2024/05/27 06:01:50
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
一下提那么多问题，哪有工夫一个个答,我就答第一个和最后一个吧!
1.计算s=1+1/2+1/3+1/4+……+1/100
program sum;
var
s,i:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s);
end.
10.验证歌德巴赫猜想：
程序说明：输入任意整数s，输出2至2s的所有偶数用两个质数和表示形式
program gedebahe;
var
s,n,p,q,j,i:longint;
hs:boolean;
begin
readln(s);
for i:=2 to s do
begin
n:=2*i;
for p:=2 to n div 2 do
begin
q:=n-p;
hs:=false;
if not hs then
for j:=2 to round(sqrt(p)) do
if p mod j=0 then
begin
hs:=true;
break;
end;{then}
if hs then continue;
for j:=2 to round(sqrt(q)) do
if q mod j=0 then
begin