179 条题解
-
0忘情摆渡 LV 3 @ 2008-11-09 10:29:58
var
san,er,n,i,x:longint;
ans:array[1..300] of integer;procedure times;
var
i,j:longint;
begin
for i:=1 to 300 do
ans[i]:=ans[i]*3;for j:=1 to 299 do
begin
inc (ans[j+1],ans[j] div 10);
ans[j]:=ans[j] mod 10;
end;end;
begin
readln (n);
if n=1 then begin writeln(1); halt; end
else if n=2 then begin writeln (2); halt; end
else if n mod 3=0 then begin x:=n div 3; ans[1]:=1; end
else if (n-2) mod 3=0 then begin x:=(n-2) div 3; ans[1]:=2; end
else if (n-4) mod 3=0 then begin x:=(n-4) div 3; ans[1]:=4; end;while x>0 do
begin
times;
dec (x);
end;x:=300;
while ans[x]=0 do dec (x);for i:=x downto 1 do
write (ans[i]);end.├ 测试数据 40:答案正确... 0ms
-
02008-11-06 17:22:19@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms
├ 测试数据 12:答案正确... 0ms
├ 测试数据 13:答案正确... 0ms
├ 测试数据 14:答案正确... 0ms
├ 测试数据 15:答案正确... 0ms
├ 测试数据 16:答案正确... 0ms
├ 测试数据 17:答案正确... 0ms
├ 测试数据 18:答案正确... 0ms
├ 测试数据 19:答案正确... 0ms
├ 测试数据 20:答案正确... 0ms
├ 测试数据 21:答案正确... 0ms
├ 测试数据 22:答案正确... 0ms
├ 测试数据 23:答案正确... 0ms
├ 测试数据 24:答案正确... 0ms
├ 测试数据 25:答案正确... 0ms
├ 测试数据 26:答案正确... 0ms
├ 测试数据 27:答案正确... 0ms
├ 测试数据 28:答案正确... 0ms
├ 测试数据 29:答案正确... 0ms
├ 测试数据 30:答案正确... 0ms
├ 测试数据 31:答案正确... 0ms
├ 测试数据 32:答案正确... 0ms
├ 测试数据 33:答案正确... 0ms
├ 测试数据 34:答案正确... 0ms
├ 测试数据 35:答案正确... 0ms
├ 测试数据 36:答案正确... 0ms
├ 测试数据 37:答案正确... 0ms
├ 测试数据 38:答案正确... 0ms
├ 测试数据 39:答案正确... 0ms
├ 测试数据 40:答案正确... 0ms
├ 测试数据 41:答案正确... 0ms
├ 测试数据 42:答案正确... 0ms
├ 测试数据 43:答案正确... 0ms
├ 测试数据 44:答案正确... 0ms
├ 测试数据 45:答案正确... 0ms
├ 测试数据 46:答案正确... 0ms
├ 测试数据 47:答案正确... 0ms
├ 测试数据 48:答案正确... 0ms
├ 测试数据 49:答案正确... 0ms
├ 测试数据 50:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02008-11-06 14:25:43@
Accepted 有效得分:100 有效耗时:0ms
不容易 Vag 6k也能0ms
-
02008-11-03 21:30:47@
。。。。。。。。。。。。同一个程序交上去,前一个居然超了一个点。。。郁闷啊。。
-
02008-11-02 16:20:16@
谢谢tiane12大牛
数论解法果然十分顶歇
var i,j,k,l,m,n:longint;
a:array[0..1500] of int64;
s:string;
function cheng(x:string;y:longint):string;
var g,t,jw,mid:longint;
a:array[1..1000] of longint;
mm:array[1..1000] of longint;
begin
fillchar(a,sizeof(a),0);
t:=length(x);
for g:=1 to t do
a[t-g+1]:=ord(x[g])-48;
jw:=0;
fillchar(mm,sizeof(mm),0);
for g:=1 to t+1 do
begin
mid:=a[g]*y+jw;
mm[g]:=mid mod 10;
jw:=mid div 10;
end;
if mm[t+1]>0 then t:=t+1;
cheng:='';
for g:=t downto 1 do
cheng:=cheng+chr(mm[g]+48);
// writeln(cheng);
end;
begin
read(n);
if n=1 then
begin
writeln(1);
exit;
end;
s:='1';
k:=n div 3;
l:=n mod 3;
case l of
0:for i:=1 to k do s:=cheng(s,3);
1:begin for i:=1 to k-1 do s:=cheng(s,3);s:=cheng(s,4);end;
2:begin for i:=1 to k do s:=cheng(s,3);s:=cheng(s,2);end;
end;
writeln(s);
end. -
02008-11-02 08:53:51@
var
a:array[1..300]of integer;
i,j,n,k,x,y,w:integer;
begin
readln(n); k:=0;
if n=1 then writeln('1')
else if n=2 then writeln('2')
else if n=3 then writeln('3')
else if n=4 then writeln('4')
else if n=5 then writeln('6')
else begin
x:=n mod 3;
if(x=1)then begin k:=(n div 3)-1;x:=4;end
else if (x=0)then begin k:=n div 3;x:=1;end
else k:=(n div 3);
fillchar(a,sizeof(a),0);
a[1]:=1;y:=0;w:=1;
for i:=1 to k do
for j:=1 to w do
begin
a[j]:=a[j]*3+y;
y:=a[j] div 10;
a[j]:=a[j] mod 10;
if (j=w)and(y0)then
begin
w:=w+1;
a[w]:=y;
y:=0;
end;
end;
for j:=1 to w do
begin a[j]:=a[j]*x+y;
y:=a[j] div 10;
a[j]:=a[j] mod 10;
if (j=w)and(y0)then
begin w:=w+1;a[w]:=y;end;
end;
for i:=w downto 1 do
write(a[i]);end;
writeln;
end. -
02008-10-29 22:33:52@
本人懒用高精……
-
02008-10-29 17:00:07@
将原数除以3得到整数商和余数,
如果余数为0,则最大积为3的商次方;
如果余数为2,则最大积为3的商次方乘以2;
如果余数为1,则最大积为3的商-1次方乘以4。
...貌似 有本奥赛经典的书上就有。。。。但具体没有证明……shilusd...hzhua
大牛……GF?!.. -
02008-10-29 16:29:42@
...
-
02008-10-28 10:59:43@
感谢楼下众大牛
60次Ac纪念 -
02008-10-28 08:08:57@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms
├ 测试数据 12:答案正确... 0ms
├ 测试数据 13:答案正确... 0ms
├ 测试数据 14:答案正确... 0ms
├ 测试数据 15:答案正确... 0ms
├ 测试数据 16:答案正确... 0ms
├ 测试数据 17:答案正确... 0ms
├ 测试数据 18:答案正确... 0ms
├ 测试数据 19:答案正确... 0ms
├ 测试数据 20:答案正确... 0ms
├ 测试数据 21:答案正确... 0ms
├ 测试数据 22:答案正确... 0ms
├ 测试数据 23:答案正确... 0ms
├ 测试数据 24:答案正确... 0ms
├ 测试数据 25:答案正确... 0ms
├ 测试数据 26:答案正确... 0ms
├ 测试数据 27:答案正确... 0ms
├ 测试数据 28:答案正确... 0ms
├ 测试数据 29:答案正确... 0ms
├ 测试数据 30:答案正确... 0ms
├ 测试数据 31:答案正确... 0ms
├ 测试数据 32:答案正确... 0ms
├ 测试数据 33:答案正确... 0ms
├ 测试数据 34:答案正确... 0ms
├ 测试数据 35:答案正确... 0ms
├ 测试数据 36:答案正确... 0ms
├ 测试数据 37:答案正确... 0ms
├ 测试数据 38:答案正确... 0ms
├ 测试数据 39:答案正确... 0ms
├ 测试数据 40:答案正确... 0ms
├ 测试数据 41:答案正确... 0ms
├ 测试数据 42:答案正确... 0ms
├ 测试数据 43:答案正确... 0ms
├ 测试数据 44:答案正确... 0ms
├ 测试数据 45:答案正确... 0ms
├ 测试数据 46:答案正确... 0ms
├ 测试数据 47:答案正确... 0ms
├ 测试数据 48:答案正确... 0ms
├ 测试数据 49:答案正确... 0ms
├ 测试数据 50:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms
var
a:array[1..300]of integer;
i,j,n,k,x,y,w:integer;
begin
readln(n); k:=0;
if n=1 then writeln('1')
else if n=2 then writeln('2')
else if n=3 then writeln('3')
else if n=4 then writeln('4')
else if n=5 then writeln('6')
else begin
x:=n mod 3;
if(x=1)then begin k:=(n div 3)-1;x:=4;end
else if (x=0)then begin k:=n div 3;x:=1;end
else k:=(n div 3);
fillchar(a,sizeof(a),0);
a[1]:=1;y:=0;w:=1;
for i:=1 to k do
for j:=1 to w do
begin
a[j]:=a[j]*3+y;
y:=a[j] div 10;
a[j]:=a[j] mod 10;
if (j=w)and(y0)then
begin
w:=w+1;
a[w]:=y;
y:=0;
end;
end;
for j:=1 to w do
begin a[j]:=a[j]*x+y;
y:=a[j] div 10;
a[j]:=a[j] mod 10;
if (j=w)and(y0)then
begin w:=w+1;a[w]:=y;end;
end;
for i:=w downto 1 do
write(a[i]);end;
end.挺好。
-
02008-10-27 10:18:27@
BS楼下某不和谐的HZHUA...
P.S. 此人有gf... -
02008-10-22 18:54:53@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms
├ 测试数据 12:答案正确... 0ms
├ 测试数据 13:答案正确... 0ms
├ 测试数据 14:答案正确... 0ms
├ 测试数据 15:答案正确... 0ms
├ 测试数据 16:答案正确... 0ms
├ 测试数据 17:答案正确... 0ms
├ 测试数据 18:答案正确... 0ms
├ 测试数据 19:答案正确... 0ms
├ 测试数据 20:答案正确... 0ms
├ 测试数据 21:答案正确... 0ms
├ 测试数据 22:答案正确... 0ms
├ 测试数据 23:答案正确... 0ms
├ 测试数据 24:答案正确... 0ms
├ 测试数据 25:答案正确... 0ms
├ 测试数据 26:答案正确... 0ms
├ 测试数据 27:答案正确... 0ms
├ 测试数据 28:答案正确... 0ms
├ 测试数据 29:答案正确... 0ms
├ 测试数据 30:答案正确... 0ms
├ 测试数据 31:答案正确... 0ms
├ 测试数据 32:答案正确... 0ms
├ 测试数据 33:答案正确... 0ms
├ 测试数据 34:答案正确... 0ms
├ 测试数据 35:答案正确... 0ms
├ 测试数据 36:答案正确... 0ms
├ 测试数据 37:答案正确... 0ms
├ 测试数据 38:答案正确... 0ms
├ 测试数据 39:答案正确... 0ms
├ 测试数据 40:答案正确... 0ms
├ 测试数据 41:答案正确... 0ms
├ 测试数据 42:答案正确... 0ms
├ 测试数据 43:答案正确... 0ms
├ 测试数据 44:答案正确... 0ms
├ 测试数据 45:答案正确... 0ms
├ 测试数据 46:答案正确... 0ms
├ 测试数据 47:答案正确... 0ms
├ 测试数据 48:答案正确... 0ms
├ 测试数据 49:答案正确... 0ms
├ 测试数据 50:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02008-10-22 10:54:29@
type bn=array[0..100] of longint;
var
ans:bn;
n,i,tm:longint;
procedure print;
begin
write(ans[ans[0]]);
for i:=ans[0]-1 downto 1 do
begin
tm:=1000;
while tm0 do
begin
write(ans[i] div tm);
ans[i]:=ans[i] mod tm;
tm:=tm div 10;
end;
end;
writeln;
end;
procedure multiply(a:bn;b:longint;var c:bn);
var i:longint;
begin
fillchar(c,sizeof(c),0);
for i:=1 to a[0] do
begin
inc(c[i],a[i]*b);
inc(c,c[i] div 10000);
c[i]:=c[i] mod 10000;
end;
if c>0 then c[0]:=i+1 else c[0]:=i;
end;
begin
readln(n);
ans[0]:=1;ans[1]:=1;
while n>4 do
begin
n:=n-3;
multiply(ans,3,ans);
end;
multiply(ans,n,ans);
print;
end. -
02008-10-16 20:05:52@
原来要用高乘,我对题目看了半天,又对程序搞了半天,还是答案错误。
最后看了题解才明白,谢谢各位啦~~
我终于AC了,哈哈~~感谢各位~~ -
02008-10-14 19:57:43@
很郁闷地交了4次...
前3次是同一个程序...但是为什么每次都超时一个点...而且每次超的点不一样!...
最后改写了4位高精才终于过了... -
02008-10-11 20:19:36@
70AC!庆祝一下!!!
顺便问一下,为什么同一条程序,交了4次都有一组超时,第5次却对了? -
02008-10-08 21:38:21@
编译通过...
├ 测试数据 01:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 02:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 03:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 04:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 05:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 06:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 07:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 08:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 09:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 10:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 11:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 12:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 13:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 14:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 15:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 16:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 17:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 18:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 19:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 20:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 21:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 22:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 23:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 24:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 25:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 26:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 27:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 28:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 29:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 30:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 31:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 32:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 33:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 34:答案正确... 0ms
├ 测试数据 35:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 36:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 37:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 38:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 39:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 40:答案正确... 0ms
├ 测试数据 41:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 42:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 43:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 44:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 45:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 46:答案正确... 0ms
├ 测试数据 47:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 48:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 49:答案错误...
├ 标准行输出
├ 错误行输出
├ 测试数据 50:答案错误...
├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:6 有效耗时:0msWhy?????????
-
02008-10-05 20:19:56@
Accepted 有效得分:100 有效耗时:0ms
感谢题解里面的每一位。。。。。
-
02008-10-03 15:16:44@
..第一次交..
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms
├ 测试数据 12:运行超时|无输出...
├ 测试数据 13:答案正确... 0ms
├ 测试数据 14:答案正确... 0ms
├ 测试数据 15:答案正确... 0ms
├ 测试数据 16:答案正确... 0ms
├ 测试数据 17:答案正确... 0ms
├ 测试数据 18:答案正确... 0ms
├ 测试数据 19:答案正确... 0ms
├ 测试数据 20:答案正确... 0ms
├ 测试数据 21:答案正确... 0ms
├ 测试数据 22:答案正确... 0ms
├ 测试数据 23:答案正确... 0ms
├ 测试数据 24:答案正确... 0ms
├ 测试数据 25:答案正确... 0ms
├ 测试数据 26:答案正确... 0ms
├ 测试数据 27:答案正确... 0ms
├ 测试数据 28:答案正确... 0ms
├ 测试数据 29:答案正确... 0ms
├ 测试数据 30:答案正确... 0ms
├ 测试数据 31:答案正确... 0ms
├ 测试数据 32:答案正确... 0ms
├ 测试数据 33:答案正确... 0ms
├ 测试数据 34:答案正确... 0ms
├ 测试数据 35:答案正确... 0ms
├ 测试数据 36:答案正确... 0ms
├ 测试数据 37:答案正确... 0ms
├ 测试数据 38:答案正确... 0ms
├ 测试数据 39:答案正确... 0ms
├ 测试数据 40:答案正确... 0ms
├ 测试数据 41:答案正确... 0ms
├ 测试数据 42:答案正确... 0ms
├ 测试数据 43:答案正确... 0ms
├ 测试数据 44:答案正确... 0ms
├ 测试数据 45:答案正确... 0ms
├ 测试数据 46:答案正确... 0ms
├ 测试数据 47:答案正确... 0ms
├ 测试数据 48:答案正确... 0ms
├ 测试数据 49:答案正确... 0ms
├ 测试数据 50:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:98 有效耗时:0ms..啊啊啊啊啊啊!!!!!
然后第二次再交一样的//..
秒杀..
什么RP..