Program ex402;//（前2 个对1 个数给1 分，后3 个对1 个数给2 分）
const
m:array[0..4] of integer=(2,3,5,7,13);
var
i,j:integer;
t: longint;
begin
4ഊfor i:=0 to 4 do
begin
t:=1;
for j:=1 to m[i]-1 do t:=t*2;
t:=(t*2-1)*t;
write (t,' ');
end; writeln; end.
输出:____________________
3. Program ex403;
Const NN=7;
Type
Arr1=array[0..30] of char;
var
s:arr1;
k,p:integer;
function fun1(s:arr1; a:char;n:integer):integer;
var
j:integer;
begin
j:=n;
while (a<s[j])and(j>0) do dec(j);
fun1:=j;
end;
Function fun2(s:arr1; a:char; n:integer):integer;
var
j:integer;
begin
j:=1;
while (a>s[j])and(j<n) do inc(j);
fun2:=j;
end; begin
for k:=1 to NN do
s[k]:=chr(ord('A')+2*k+1);
k:=fun1(s,'M',NN)+fun2(s,'M',NN);
ഊwriteln(k);
end.

输出：6 28 496 8128 33550336