编译通过...

├ 测试数据 01：答案正确... (0ms, 584KB)

├ 测试数据 02：答案正确... (0ms, 584KB)

├ 测试数据 03：答案正确... (0ms, 584KB)

├ 测试数据 04：答案正确... (0ms, 584KB)

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

Accepted / 100 / 0ms / 584KB

第一次的程序严重超时，样例用了5s……

优化后不超时了，但忽略了十进制以上，WA了一次

话说vijos上c++的代码很少啊

此题m竟然是n进制数，存在AC145B之类的奇葩数据，没有考虑到WA了一次

提供点数据：

2　 　 10011　 　 　 4

16　 AC27　 　 　 　 6

10　 89　 　 　 　 　 24

2　 101111　 　 　 　 Impossible

编译通过...

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

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

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

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

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

Unaccepted 有效得分：75 有效耗时：0ms

有人出现这种错误码？怎么解决？

编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

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

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

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

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

Unaccepted 有效得分：75 有效耗时：0ms

{should 'a' to 'g' }

program p1304;

const qq:array['0'..'9'] of integer=(0,1,2,3,4,5,6,7,8,9);

oo:array['A'..'G'] of integer=(10,11,12,13,14,15,16);

var din1,din2:array[0..40] of longint; { just a num}

n,jin,i,j,bu,long:longint; {jin zhi}

ss:ansistring;

procedure find;

var i,j:longint;

begin

for i:=1 to long do din2[long+1-i]:=din1[i];

for i:=1 to long do inc(din1[i],din2[i]);

for i:=1 to long do begin

inc(din1[i],din1 div jin);

din1:=din1 mod jin;

end;

while din1[long]>jin do begin

inc(long);

inc(din1[long],din1[long-1] div jin);

din1[long-1]:=din1[long-1] mod jin;

end;

end;

function re:boolean;

var i:longint;

begin

re:=true;

for i:=1 to (long div 2) do if din1[i]din1[long+1-i] then re:=false;

end;

BEGIN

readln(jin);

bu:=0;

readln(ss);

while ss[1]='0' do delete(ss,1,1);

long:=length(ss);

for i:=1 to long do

if ss[long+1-i]>'9' then din1[i]:=oo[ss[long+1-i]]

else din1[i]:=qq[ss[long+1-i]];

if re then begin writeln('0'); halt; end;

bu:=0;

while bu

太邪门了 交上去一直RuntimeError200 Division By Zero

编译通过...

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

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

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

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

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

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

悲剧,先是少了'!',然后是打了小写字母...................

编译通过...

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

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

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

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

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

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

一开始没看懂题目说的每步意思

白wa了一次- -|||

。。真是爽，fp上明明有！，粘上来！就消失了，其他的还没有变。这是什么bug恶。。rp！？！？！？！？！？！？！

注意十进制以上的数的读入处理！

我因为这个WA了2次

注意10进制以上的读入处理

#include

char mm[100]={0};

int m[100]={0};

int hh[100]={0};

int l;

int n;

void cd()

{

int a;

for(a=0;;a++)

if(mm[a]==0)

{

l=a;

break;

}

}

void hs()

{

int a,b;

for(a=l-1,b=0;a>=0;a--,b++)

hh[a]=m;

}

void add()

{

int a,b;

int x;

hs();

for(a=0;a0)

for(b=a;;b++)

{

l++;

if(m/n>0)

{

m=m/n+m;

m=m%n;

}

else

break;

}

}

int pdhw()

{

int a;

int x=1;

for(a=0;a

• -

纯粹模拟....

注意

不压位的话：hp=array[0..1000] of longint;

高精度+判断回文数=ac 不过 数组开大点！

我得为什么不对啊哪位大牛指点下

编译通过...

├ 测试数据 01：答案错误...程序输出比正确答案长

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

├ 测试数据 03：答案错误...程序输出比正确答案长

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

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

Unaccepted 有效得分：50 有效耗时：0ms

const

v:array['A'..'F'] of integer=(10,11,12,13,14,15);

var

n:longint;

a:array[0..100] of longint;

i,k,ans:longint;

s:string;

function pan:boolean;

var x,y:longint;

begin

x:=1;y:=k;

while (a[x]=a[y]) and (x0 then inc(k);

end;

begin

readln(n);

readln(s);

k:=length(s);

for i:=1 to k do

if s[i] in ['0'..'9'] then a[i]:=ord(s[i])-ord('0')

else a[i]:=v[s[i]];

ans:=0;

while (not pan) and (ans30 then writeln('Impossible!')

else writeln('STEP=',ans);

end.

请帮忙看一下啊！！

var

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

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

s:string;

function ok(k:integer):boolean;

var i:integer;

begin

ok:=true;

for i:=1 to l div 2do

ok:=ok and(a[i]=a[l-i+1])

end;

procedure ppp;

begin

writeln('STEP=',t);

halt;

end;

begin

readln(n);

readln(s);

l:=0;

while s'' do

begin

l:=l+1;

if (s[1]>='0')and(s[1]

编译通过...

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

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

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

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

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

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

那个‘Impossible’有感叹号

唉，我的AC。。

水题

类似高精度加法 + 回文数判断就可以ac了

第123题 小庆祝下

楼下程序好长...

var

n,i,len,k,j,x,y:longint;

s:string;

tf:boolean;

num,num2,num3:array[1..100] of integer;

begin

readln(n);

readln(s);

len:=length(s);

for i:=1 to len do begin

j:=len-i+1;

case s[i] of

'0'..'9' : val(s[i],num[j]);

'A' : num[j]:=10;

'B' : num[j]:=11;

'C' : num[j]:=12;

'D' : num[j]:=13;

'E' : num[j]:=14;

'F' : num[j]:=15;

end;

end;

k:=0;

repeat

inc(k);

for i:=1 to len do num2[len-i+1]:=num[i];

for i:=1 to len do num3[i]:=num[i]+num2[i];

for i:=1 to len do if num3[i]>=n then begin

inc(num3,num3[i] div n);

num3[i]:=num3[i] mod n;

end;

if num3[len+1]0 then inc(len);

num:=num3;

tf:=true;

x:=1;y:=len;

while x30);

if tf then writeln('STEP=',k) else writeln('Impossible!');

end.

var

a,b,c,p:array[1..200] of integer;

n,s:string;

tot,m,tt:integer;

pd:boolean;

procedure panduan(n:string);

var i:integer;

begin

fillchar(p,sizeof(p),0); pd:=true;

for i:=1 to length(n) do p[length(n)-i+1]:=ord(n[i])-ord('0');

for i:=1 to (length(n) div 2) do

begin

if p[i]p[length(n)-i+1] then pd:=false;

end;

end;

procedure bianxing(n:string);

var i:integer;

begin

fillchar(p,sizeof(p),0);

s:='';

for i:=1 to length(n) do p[length(n)-i+1]:=ord(n[i])-ord('0');

for i:=1 to length(n) do s:=s+chr(p[i]+48);

end;

procedure jia(var n,s:string);

var i,x,lena,lenb,lenc:integer;

begin

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

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

lena:=length(n);

for i:=1 to lena do

begin

if ((ord('A')-1)