题解 - Vijos

0

饕饕不绝 LV 8 @ 2009-03-26 14:10:16

for(i=1;i

0

fjfzprj LV 8 @ 2009-03-26 13:28:36

编译通过...

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

本题是一道小学奥术题，只要吧任意一个数分解成2N+3M的形式（N,M为整数,M最大）即可，还有本题中的数为0和1是需要特判，0输出0，1输出1.

记得要开高精

附程序:

program p1033;

const

filein='p1033.in';

fileout='p1033.out';

type

Tin=longint;

Tin2=qword;

Tarr=array[1..1000]of Tin;

var

n,len:Tin;

ans:Tarr;

procedure init;

begin

readln(n);

end;

procedure cheng(a:Tin;var num:Tarr);

var

i,m:Tin;

begin

m:=0;

for i:=1 to len do

begin

ans[i]:=ans[i]*a+m;

m:=ans[i] div 10;

ans[i]:=ans[i] mod 10;

end;

if m>0

then begin

inc(len);

num[len]:=m;

end;

end;

procedure main;

var

i:Tin;

begin

ans[1]:=1;

len:=1;

if n mod 3=1

then begin

for i:=1 to (n div 3)-1 do

cheng(3,ans);

cheng(4,ans);

end;

if n mod 3=2

then begin

for i:=1 to n div 3 do

cheng(3,ans);

cheng(2,ans);

end;

if n mod 3=0

then for i:=1 to n div 3 do

cheng(3,ans);

end;

procedure print;

var

i:Tin;

begin

for i:=len downto 1 do

write(ans[i]);

end;

begin

assign(input,filein);

assign(output,fileout);

reset(input);

rewrite(output);

init;

main;

if n=1

then writeln(1)

else print;

close(input);

close(output);

end.

0

青衣谎言ing LV 6 @ 2009-03-25 13:43:41

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

其实这题十分的弱智，十分的简单，这是你们没找到解决的方法罢了。

简简单单的打表就能解决一切问题，瞬间秒杀……………………，有点汗啊！

大家不要学要用打表啊，搞不好你就

A CCCCCC

A A CCC

A A A CCC

A A A A CCCCCC

0

HH吹水 LV 6 @ 2009-03-25 13:40:11

编译通过...

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

打表就行了，但这种办法很弱智，不过我们班一个同学用了这种方法

好鄙视他，水~~

0

wo&ni LV 9 @ 2009-03-11 17:47:32

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.

0

董 LV 10 @ 2009-03-10 22:03:46

编译通过...

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

program temp;

var

f:array[1..500]of longint;

n,x,y,l,i:integer;

procedure cheng(k:longint);

var

i,j:integer;

begin

for i:=1 to l do f[i]:=f[i]*k;

for i:=2 to l+1 do

begin

f[i]:=f[i]+f div 10000;

f:=f mod 10000;

end;

while f[l+1]>0 do inc(l);

end;

begin

read(n);

if n=0 then begin write('0'); halt; end;

if n=1 then begin write('1'); halt; end;

if n=2 then begin write('2'); halt; end;

x:=n div 3;

y:=n mod 3;

fillchar(f,sizeof(f),0);

f[1]:=1;

l:=1;

if y=0 then for i:=1 to x do cheng(3);

if y=1 then

begin

for i:=1 to x-1 do cheng(3);

for i:=1 to 2 do cheng(2);

end;

if y=2 then

begin

for i:=1 to x do cheng(3);

cheng(2);

end;

write(f[l]);

for i:=l-1 downto 1 do

write(f[i] div 1000,(f[i] div 100) mod 10,(f[i] div 100) mod 10, f[i] mod 10);

end.

0

wzc1995 LV 10 @ 2009-03-07 03:05:29

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

#include "stdio.h"

int main()

{

int i,j,l,d,n,m,t=0,a[1000]={0};

scanf("%d",&n);

if(n%3==0)

{

a[0]=1;

m=n/3;

}

if(n%3==1)

{

a[0]=4;

m=n/3-1;

}

if(n%3==2)

{

a[0]=2;

m=n/3;

}

if(n==1)

a[0]=1;

for(i=1;i

0

WJΨ LV 7 @ 2009-02-25 16:08:18

要想得到最大乘积,要把这个数分成尽量多的3,

若n mod 3=1 那么,就分成2个2和 (n-4) div 3 个3;

若n mod 3=2 那么,就分成1个2和(n-2) div 3 个3;

另外还要注意n小于4的情况!

0

blacksnow LV 10 @ 2009-02-17 19:28:43

忘记高* 10分

0

zgx LV 10 @ 2009-02-05 22:40:41

小学奥数题，

但还是庆祝我AC100题！！！!!!^_^

0

三水 LV 3 @ 2009-01-30 14:13:05

打表是减RP的事，还是少做为好^_^

本来我直接高精度上，62……TLE囧……

后来算了一下不会超过250位，于是压四位……98，残念……

终于，看到某牛的提示：第40个点是1……于是……痛不欲生……我的通过率啊……

另外，底下某位同学挂上《孔雀东南飞》干什么？……囧字里套个雷……

0

尖端才子 LV 10 @ 2009-01-24 11:56:23

严禁打表！！！！！观察一下成绩只由2和3的次幂构成……最多有两个2，其他全是3。

何必打表呢？

刚开始做成了DP+高乘……太慢……

后来发现了规律……于是AC注意得加4位高乘。

{————————————————————————————————————}

编译通过...

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

f:array[1..500]of longint;

n,x,y,l,i:integer;

procedure cheng(k:longint);

var

i,j:integer;

begin

for i:=1 to l do f[i]:=f[i]*k;

for i:=2 to l+1 do

begin

f[i]:=f[i]+f div 10000;

f:=f mod 10000;

end;

while f[l+1]>0 do inc(l);

end;

begin

read(n);

if n=0 then begin write('0'); halt; end;

if n=1 then begin write('1'); halt; end;

if n=2 then begin write('2'); halt; end;

x:=n div 3;

y:=n mod 3;

fillchar(f,sizeof(f),0);

f[1]:=1;

l:=1;

if y=0 then for i:=1 to x do cheng(3);

if y=1 then

begin

for i:=1 to x-1 do cheng(3);

for i:=1 to 2 do cheng(2);

end;

if y=2 then

begin

for i:=1 to x do cheng(3);

cheng(2);

end;

write(f[l]);

for i:=l-1 downto 1 do

write(f[i] div 1000,(f[i] div 100) mod 10,(f[i] div 10) mod 10, f[i] mod 10);

end.

Flag 　　 Accepted

题号　　P1033

类型(?) 　　数论 / 数值

通过　　1910人

提交　　5380次

通过率　　36%

难度　　2

提交讨论题解

0

金牌选手2世 LV 3 @ 2008-12-08 13:28:50

program p1033;

type

hp=record

len:integer;

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

end;

var

a:hp;

n,i:integer;

procedure mult(a:hp;b:integer;var c:hp);

var

len,i:integer;

begin

fillchar(c,sizeof(c),0);

len:=a.len;

for i:=1 to len do

begin

inc(c.s[i],a.s[i]*b);

inc(c.s,c.s[i] div 10);

c.s[i]:=c.s[i] mod 10;

end;

inc(len);

while (c.s[len]>=10) do

begin

inc(len);

inc(c.s[len],c.s[len-1] div 10);

c.s[len-1]:=c.s[len-1] mod 10;

end;

while (len>1) and (c.s[len]=0) do dec(len);

c.len:=len;

end;

begin

readln(n);

a.len:=1;

a.s[1]:=1;

if n=1 then

begin

writeln(1);

halt;

end;

if n mod 3=0 then

for i:=1 to (n div 3) do

mult(a,3,a);

if n mod 3=1 then

begin

for i:=1 to (n div 3)-1 do mult(a,3,a);

for i:=1 to 2 do mult(a,2,a);

end;

if n mod 3=2 then

begin

for i:=1 to n div 3 do mult(a,3,a);

mult(a,2,a);

end;

for i:=a.len downto 1 do

write(a.s[i]);

writeln;

end.

0

破晓Daybreak LV 8 @ 2008-12-02 21:19:53

没学过小学奥术……

用的DP+交表……

0

rickforce LV 5 @ 2008-11-30 20:41:30

计算机做法：

枚举分成的块数i（n/3b[i])

return 1;

else if(a[i]

0

道不完的忧愁 LV 4 @ 2008-11-25 17:08: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

0

419488575 LV 3 @ 2008-11-11 20:29:54

编译通过...

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

0

ddzz LV 3 @ 2008-11-11 08:55:18

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

0

wb65661368 LV 3 @ 2008-11-10 15:07:32

program p1033;

var

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

a:array[1..2000] of longint;

begin

readln(m);

if m mod 3=0 then begin a[1]:=1;n:=m div 3; end;

if m mod 3=1 then begin a[1]:=4;n:=m div 3-1; end;

if m mod 3=2 then begin a[1]:=2;n:=m div 3; end;

if m=1 then a[1]:=1;

for i:=1 to n do

begin

for j:=1 to 1000 do

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

for j:=1 to 1000 do

　　if a[j]>=10 then

　　 begin

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

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

　　 end;

end;

l:=1000;

while a[l]=0 do

dec(l);

for i:=l downto 1 do

write(a[i]);

writeln;

end.

0

losinga LV 8 @ 2008-11-09 18:05:32

program p1033;

var

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

a:array[1..2000] of longint;

begin

assign(input,'p1033.in');

assign(output,'p1033.out');

reset(input);

rewrite(output);

readln(m);

if m mod 3=0 then begin a[1]:=1;n:=m div 3; end;

if m mod 3=1 then begin a[1]:=4;n:=m div 3-1; end;

if m mod 3=2 then begin a[1]:=2;n:=m div 3; end;

if m=1 then a[1]:=1;

for i:=1 to n do

begin

for j:=1 to 1000 do

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

for j:=1 to 1000 do

if a[j]>=10 then

begin

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

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

end;

end;

l:=1000;

while a[l]=0 do

dec(l);

for i:=l downto 1 do

write(a[i]);

writeln;

close(input);

close(output);

end.

我要吐血了。。。居然交了两次。。。忘记处理了N=1。。。AC率降至50%。。。。。

哇。。。。。。（一地鲜血）

题解

179 条题解

整数分解(版本2)

信息

状态

开发

支持

题解

179 条题解

整数分解(版本2)

信息

状态

开发

支持

还没有账户？

登录