时共有5个数相加)，几个数相加有键盘控制。 var a,s,b,i,z:longint; begin
readln(a,b); s:=a;
for i:=1 to b-1 do begin a:=a*11; z:=a; end; z:=z+s; writeln(z); end.
16 题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程找出1000以内的所有完数。 var
m,i,n,t:integer; begin
for n:=1 to 100 do begin
t:=0;
for i:=2 to n do if ((n mod i)=0) then t:=t+(n div i); if (t=n) then write(n,' '); end; end.
17 题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在第10次落地时，共经过多少米？第10次反弹多高？ var a,i,b:integer; begin a:=100;
for i:=1 to 10 do begin
b:=a div 2; a:=a div 2; writeln(b); end; end.
18 题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下
的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。 var i,x1,x2:integer; begin
for i:=1 to 10 do begin
x1:=(x2+1)*2; x2:=x1; end;
writeln(x2); end.
19 题目：两个乒乓球队进行比赛，各出三人。甲队为a,b,c三人，乙队为x,y,z三人。已抽签决定比赛名单。有人向队员打听比赛的名单。a说他不和x比，c说他不和x,z比，请编程序找出三队赛手的名单。 var
i,h,e:char; begin
for i:='x' to 'z' do
if (i<>'x') and (i<>'z') then begin writeln('c',i);h:=i; end; for i:='x' to 'z' do
if (i<>'x') and (i<>h) then begin writeln('a',i);e:=i; end; for i:='x' to 'z' do
if (i<>h) and (i<>e) then writeln('b',i); end.
20 题目：打印出如下图案（菱形） * *** ****** ******** ****** *** * begin
writeln('*'); writeln('***'); writeln('******'); writeln('********'); writeln('******'); writeln('***'); writeln('*'); end.
21 题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。
var a,b,c,t:real; i:integer; begin a:=2; b:=1;
for i:=1 to 20 do begin c:=c+a/b;
t:=a;a:=a+b;b:=t; end;
writeln(c); end.
22 题目：求1+2!+3!+...+20!的和 var i,j,a:longint; t,c:int64; begin
for i:=1 to 20 do begin t:=1;
for j:=1 to i do begin t:=t*j; end; c:=c+t; end; writeln(c); end.
23 题目：利用适当方法求5! 。 var a,j:longint; t,c:int64; begin t:=1;
for j:=1 to 5 do begin t:=t*j; end; c:=c+t; writeln(c); end.
24 题目：将输入5个字符，以相反顺序打印出来。 var a:array[1..5] of char;
i:integer; begin
for i:=1 to 5 do readln(a);
for i:=5 downto 1 do writeln(a); end.
25 题目：有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后问第一个人，他说是10岁。请问第五个人多大？ var a,i:longint; begin a:=10;
for i:=1 to 4 do a:=a+2; writeln(a); end.
26 题目：给一个不多于5位的正整数，要求：一、求它是几位数，二、逆序打印出各位数字。
var a,c,d1,d2,d3,d4,d5:longint; begin readln(a);
if a<10 then begin c:=1;writeln('1'); end else
if (a>=10) and (a<100) then begin c:=2;writeln('2'); end else if (a>=100) and (a<1000) then begin c:=3;writeln('3'); end else if (a>=1000) and (a<10000) then begin c:=4;writeln('4'); end else if a>=10000 then begin c:=5;writeln('5'); end; if c=5 then begin
d1:=a mod 10;a:=a div 10; d2:=a mod 10;a:=a div 10; d3:=a mod 10;a:=a div 10; d4:=a mod 10;a:=a div 10; d5:=a;
writeln(d1,d2,d3,d4,d5); end;
if c=4 then begin
d1:=a mod 10;a:=a div 10; d2:=a mod 10;a:=a div 10; d3:=a mod 10;a:=a div 10; d4:=a;
writeln(d1,d2,d3,d4); end;
if c=3 then begin
d1:=a mod 10;a:=a div 10; d2:=a mod 10;a:=a div 10; d3:=a;
writeln(d1,d2,d3); end;
if c=2 then begin
d1:=a mod 10;a:=a div 10; d2:=a;
writeln(d1,d2); end;
if c=1 then writeln(a); end.
27 题目：一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。
var a,b1,b2,b3,b4,b5:longint; begin readln(a);
b1:=a mod 10;a:=a div 10; b2:=a mod 10;a:=a div 10; b3:=a mod 10;a:=a div 10; b4:=a mod 10;a:=a div 10; b5:=a;
if (b1=b5) and (b2=b4) then writeln('yes') else writeln('no'); end.
28 题目：请输入星期几的第一个字母来判断一下是星期几，如果第一个字母一样，则继续判断第二个字母…… var a,b,c:char; begin readln(a);
if (a='m') or (a='w') or (a='f') then begin
if a='m' then writeln('1') else if a='w' then writeln('3') else if a='f' then writeln('5'); end else begin