|
|
back to boardtrouble(pascal) what`s wrong? var n,i,res,c,max:longint; a:array[0..100000] of integer; begin repeat max:=0; Readln(n); a[0]:=0; a[1]:=1; for i:=1 to n do begin a[2*i]:=a[i]; a[2*i+1]:=a[i]+a[i+1] end; for i:=1 to n do if a[i]>max then max:=a[i]; if n<>0 then Writeln(max); until n=0; end. Re: trouble(pascal) i find mistake: a:array[0..200001] of integer; this is accepted) |
|
|