?? ac1079.pas
字號:
program ural1079;
const
maxn=99999;
var
a,max:array[0..maxn]of integer;
n,i:longint;
begin
a[0]:=0;a[1]:=1;
max[0]:=0;max[1]:=1;
for i:=2 to maxn do begin
if odd(i) then
a[i]:=a[i div 2]+a[i div 2+1]
else
a[i]:=a[i div 2];
if a[i]>max[i-1] then max[i]:=a[i] else max[i]:=max[i-1];
end;
repeat
readln(n);
if n=0 then halt;
writeln(max[n]);
until false;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -