WS 1...100-->98

http://chengchen2008.blog.163.com/blog/static/28346475200971223723694/

编译通过...

├ 测试数据 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:longint;

s:array[1..100000] of integer;

i,p,j:longint;

begin

read(a);

if a=0 then write(0)

else

if a=1 then write(1)

else

if a=2 then write(2)

else

if a=3 then write(3)

else

begin

if a mod 3=1 then

begin

s[1]:=4;

a:=a-4;

end

else

if a mod 3=2 then

begin

s[1]:=2;

a:=a-2;

end

else s[1]:=1;

a:=a div 3;

p:=1;

for i:=1 to a do

begin

for j:=1 to p do

s[j]:=s[j]*3;

for j:=1 to p do

if s[j]>9 then

begin

if j=p then p:=p+1;

s[j+1]:=s[j+1]+s[j] div 10;

s[j]:=s[j] mod 10;

end;

end;

for i:=p downto 1 do begin

write(s[i]);

end;

end;

end.

多三少二不要一

四的时候要注意

二二要比三一好

高精乘法也可以

一开始被1WS了

高精乘低精压千万位……

小心该死的"1"

Accepted 有效得分：100 有效耗时：0ms

为了不刷屏，我选择了↑

就是高精×低精

常听说vj评测机很神奇 今天终于中招了~~

同样的程序

no.1 超时 90

no.2 AC 100 0ms

编译通过...

├ 测试数据 01：答案正确... 119ms

├ 测试数据 02：答案正确... 166ms

├ 测试数据 03：答案正确... 119ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 197ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 134ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 9ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 119ms

├ 测试数据 21：答案正确... 0ms

├ 测试数据 22：答案正确... 150ms

├ 测试数据 23：答案正确... 56ms

├ 测试数据 24：答案正确... 25ms

├ 测试数据 25：答案正确... 0ms

├ 测试数据 26：答案正确... 25ms

├ 测试数据 27：答案正确... 72ms

├ 测试数据 28：答案正确... 56ms

├ 测试数据 29：答案正确... 0ms

├ 测试数据 30：答案正确... 41ms

├ 测试数据 31：答案正确... 0ms

├ 测试数据 32：答案正确... 0ms

├ 测试数据 33：答案正确... 0ms

├ 测试数据 34：答案正确... 0ms

├ 测试数据 35：答案正确... 0ms

├ 测试数据 36：答案正确... 0ms

├ 测试数据 37：答案正确... 0ms

├ 测试数据 38：答案正确... 9ms

├ 测试数据 39：答案正确... 41ms

├ 测试数据 40：答案正确... 0ms

├ 测试数据 41：答案正确... 0ms

├ 测试数据 42：答案正确... 0ms

├ 测试数据 43：答案正确... 0ms

├ 测试数据 44：答案正确... 119ms

├ 测试数据 45：答案正确... 119ms

├ 测试数据 46：答案正确... 0ms

├ 测试数据 47：答案正确... 150ms

├ 测试数据 48：答案正确... 0ms

├ 测试数据 49：答案正确... 119ms

├ 测试数据 50：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：1845ms

type mytype=array[1..1000] of integer;

var n,a,b,c:longint;

l:array[1..1500,1..1000] of integer;

cfrs:array[1..1000] of integer;

function ilength(a:mytype):longint;

var b:integer;

begin

for b:=length(a) downto 1 do

if a[ b ]0 then exit(b);

end;

procedure iinsert(var a:mytype);

var b:integer;

begin

for b:=ilength(a)+1 downto 2 do

a[ b ]:=a;

a[1]:=0;

end;

procedure idelete(var a:mytype);

var b,c:integer;

begin

c:=ilength(a);

for b:=2 to c do

a:=a[ b ];

a[c]:=0;

end;

procedure huan(var a,b:integer);

var c:integer;

begin

c:=a;

a:=b;

b:=c;

end;

procedure dao(var a:mytype);

var b,c:longint;

begin

c:=ilength(a);

for b:=1 to c div 2 do

huan(a[ b ],a[c-b+1]);

end;

procedure cf(a,b:mytype);

var c,d,p,e,tmp1,tmp2,tmp3:longint;

begin

fillchar(cfrs,sizeof(cfrs),0);

while ilength(a)ilength(b) do

iinsert(b);

dao(a);

dao(b);

for c:=1 to length(cfrs) do

cfrs[c]:=0;

for c:=1 to ilength(a) do

begin

e:=0;

for d:=1 to ilength(b) do

begin

tmp1:=a[c];

tmp2:=b[d];

tmp3:=cfrs[c+d-1];

e:=tmp3+e+tmp1*tmp2;

cfrs[c+d-1]:=e mod 10000;

e:=e div 10000;

end;

p:=c+ilength(b);

while e0 do

begin

tmp3:=cfrs[p];

e:=e+tmp3;

cfrs[p]:=e mod 10000;

e:=e div 10000;

end;

end;

dao(cfrs);

while cfrs[1]=0 do

idelete(cfrs);

end;

begin

read(n);

{}//for n:=1 to 1500 do begin

{}//fillchar(l,sizeof(l),0);

if n

用十万进制看来比较好

终于明白了、、楼就是这么盖的- -

编个高精不至于兴奋的把0MS贴出来吧、、、、

我OUT了、、、#14

#include "stdio.h"

int a[1000]={0},la=1;

void mul(int e)

{

int s=0,t=0;

for(int i=0;i0)

{

a[la++]=s%10;

s/=10;

}

}

int main()

{

int n,s;

scanf("%d",&n);

a[0]=1;

if(n%3==0)

{

for(int i=1;i

编译通过...

├ 测试数据 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

BT的数据,华丽的秒杀

第一次看这道题目的时候

想DP去了 .... ⊙﹏⊙b汗

看来我的数学不怎么样啊

后来改成高精

结果如下：

编译通过...

├ 测试数据 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：运行超时|无输出...

├ 测试数据 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

不甘心啊

同样的程序再交上去

编译通过...

├ 测试数据 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

秒了 ~(≧▽≦)/~

偶滴神啊

vijos的评测机很好很强大！！

编译通过...

├ 测试数据 01：答案正确... 805ms

├ 测试数据 02：运行超时...

├ 测试数据 03：答案正确... 836ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 9ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：运行超时...

├ 测试数据 11：答案正确... 72ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 87ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 867ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 274ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 696ms

├ 测试数据 21：答案正确... 9ms

├ 测试数据 22：运行超时...

├ 测试数据 23：答案正确... 477ms

├ 测试数据 24：答案正确... 290ms

├ 测试数据 25：答案正确... 0ms

├ 测试数据 26：答案正确... 165ms

├ 测试数据 27：答案正确... 618ms

├ 测试数据 28：答案正确... 368ms

├ 测试数据 29：答案正确... 25ms

├ 测试数据 30：答案正确... 384ms

├ 测试数据 31：答案正确... 0ms

├ 测试数据 32：答案正确... 0ms

├ 测试数据 33：答案正确... 9ms

├ 测试数据 34：答案正确... 0ms

├ 测试数据 35：答案正确... 0ms

├ 测试数据 36：答案正确... 0ms

├ 测试数据 37：答案正确... 0ms

├ 测试数据 38：答案正确... 165ms

├ 测试数据 39：答案正确... 368ms

├ 测试数据 40：答案正确... 0ms

├ 测试数据 41：答案正确... 0ms

├ 测试数据 42：答案正确... 165ms

├ 测试数据 43：答案正确... 0ms

├ 测试数据 44：答案正确... 758ms

├ 测试数据 45：答案正确... 805ms

├ 测试数据 46：答案正确... 0ms

├ 测试数据 47：运行超时...

├ 测试数据 48：答案正确... 134ms

├ 测试数据 49：答案正确... 649ms

├ 测试数据 50：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：92 有效耗时：9035ms

program p_1033;

const max=100000000000000;

type data=record

t:array[0..20] of int64;

wei:integer;

end;

var f:array[0..1500] of data;

n,i,j,k,l,m:longint;

opt:data;

ans,tg:string;

function da(x,y:data):boolean;

var p,q:longint;

begin

if x.wei>y.wei then

exit(true);

if x.weiy.t[q] then

exit(true);

if x.t[q]0 then

cheng.wei:=a.wei+1

else cheng.wei:=a.wei;

end;

begin

readln(n);

for i:=1 to n do

begin

f[i].t[0]:=i;

for j:=1 to i-1 do

begin

opt:=cheng(f[j],(i-j));

if da(opt,f[i]) then

f[i]:=opt;

end;

end;

for i:=0 to f[n].wei-1 do

begin

str(f[n].t[i],tg);

ans:=tg+ans;

while length(ans) mod 140 do

ans:='0'+ans;

end;

str(f[n].t[f[n].wei],tg);

ans:=tg+ans;

writeln(ans);

end.

编译通过...

├ 测试数据 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

少说空话啊，小伙子们

哈哈哈

不过50个数据实在可怕。

组合数学 小菜 .....

编译通过...

├ 测试数据 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

b,a,c,d,i,n:longint;

chang:array[1..2000000] of longint;

procedure cheng( x,z:longint);

var y,l:integer;

begin

y:=0; l:=n;

for i:=1 to l do

begin

chang[i]:=chang[i]*x;

y:=chang[i]+y div 10;

chang[i]:= y mod 10;

end;

if y>10 then begin inc(n); chang[l+1]:= y div 10 ; end;

end;

begin

readln(a);

b:=a div 3;n:=1;chang[1]:=1;

if (a mod 3=0) then for c:=1 to b do cheng(3,n);

if (a mod 3=1 ) then begin

for c:=1 to b-1 do cheng(3,n);

cheng(4,n);

end;

if (a mod 3=2) then

begin

for c:=1 to b do cheng(3,n);

cheng(2,n);

end;

for i:=n downto 1 do write(chang[i]);

end.

70后的数据就会错 错在那里了 哪个高手说一下了 拜托了

程序为什么会超时啊？哪位大侠看看？

---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|-

var a:array[0..10000]of longint;

var n,max:longint;

procedure prime(t:longint);

var i,s:longint;

begin

s:=1;

for i:=1 to t do

s:=s*a[i];

if s>max then max:=s;

end;

procedure cs(s,t:integer);

var i:integer;

begin

if s=0 then begin prime(t-1);exit;end;

for i:=1 to s do

if (i>=a[t-1])and(in) then begin

s:=s-i;

a[t]:=i;

cs(s,t+1);

s:=s+a[t];

end;

end;

begin

readln(n);

if n