苍狼 2008-11-13 03:55:00
点我顶贴
收藏
删除
谁能看看哪错了?哪位大牛能把改好的程序给我看看??
program maisenshu；
type
data=record
w:array[1..100000]of longint；
len:longint；
end；
procedure cheng(var a:data)；
var i,j,t:longint；
begin
t:=0；
for i:=a.len downto 1 do
a.w[i]:=a.w[i]*2；
for i:=1 to a.len do
begin
a.w[i+1]:=a.w[i+1]+a.w[i] div 10；
a.w[i]:=a.w[i] mod 10；
end；
inc(a.len)；
while a.w[a.len]>=10 do
begin
a.w[a.len+1]:=a.w[a.len]div 10；
a.w[a.len]:=a.w[a.len]mod 10；
inc(a.len)；
end；
while (a.w[a.len]=0)and(a.len>0) do dec(a.len)；
end；
var
a,b,c:data；
n,i,j,k,k2:longint；
begin
readln(n)；
a.w[1]:=2；a.len:=1；
for i:=2 to n do
cheng(a)；
writeln(a.len)；
for i:=500 downto 2 do
write(a.w[i])；
write(a.w[1]-1)；
readln；readln；
end.
谢谢了啊!!!!!!!!!!!!!