if n0 then begin c[q+1]:=j;

inc(q);end;

end;

___|\__|\__|\__|\__|\__|_

最爱if嵌套

第一次：没加step=，还有‘！’得‘饼’

非常有格式化。。。。

暴汗又很长。。。。。。。

var

a,b:array[0..1000] of integer;

i,k:integer;

procedure init;

var

s:string;

i:integer;

begin

readln(k);

readln(s);

a[0]:=length(s);

for i:=1 to length(s) do

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

else a[i]:=ord(s[i])-55;

end;

procedure load;

var

i,n:integer;

begin

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

b[0]:=a[0];

n:=a[0];

for i:=1 to n do b[i]:=a[n-i+1];

end;

function pp:boolean;

var

len,i:integer;

begin

len:=a[0];

for i:=1 to len shr 1 do

if a[len-i+1]a[i] then exit(false);

exit(true);

end;

procedure plas;

var

i,g,n:integer;

begin

for i:=1 to a[0] do inc(a[i],b[i]);

i:=0;

g:=0;

n:=a[0];

while (g0)or(i

无语，少打了一个感叹号。。。。

之后AC了。。。

QBASIC改的程序，用农夫山泉洗了澡。

阴险。。。

还好小号当了7次炮灰

这道题难道是:

老师布置的--

通过率杀手.

彻底心碎了。。。AC率本来就够低的。。。

A当成10；

B当成11;

C当成12;

.

.

.

.

字母-55=数字

这题读入太变态了，在我的PASCAL上用while not eof do begin inc(i); read(ch); case ch of 'A':a[i]:=10; 'B':a[i]:=11; 'C':a[i]:=12; 'D':a[i]:=13; 'E':a[i]:=14; 'F':a[i]:=15; else val(ch,a[i]); end;是全过，在评测机上却不行！！正确率啊。。。。。。。。。。。

var

a,b:array[0..60000] of integer;

st:string;

base,i,j,n,k:longint;

ch:char;

check:boolean;

begin

readln(base);

read(st); n:=length(st); a[0]:=n; for i:=1 to n do begin if (st[i]>='0')and(st[i]='A')and(st[i]

编译通过...

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

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

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

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

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

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

我来回顾一下吧。。。

一次 0分，心想我这么好的程序0分，不可能，于是检查，发现我把A=11，B=12去了，

改。。。

二次 25分，再看，原来输出要加个‘！’；

三次 50分， 再看， 觉得自己高精写错一小步，改

四次 75分， 最后一个点超时， 发现自己多用了一个变量（数组）， 改

五次 100分 AC 眼泪哗哗的

农夫山泉有点苦%>_

编译通过...

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

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

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

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

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

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

var st:string; a,c :array[0..200]of integer;

k,n,i,b,step:longint;

begin

readln(k);

read(st);

n:=length(st);

for i:=1 to n do

begin

if (st[i]>='0')and(st[i]='A')and(st[i]=k then

begin

a[i]:=a[i]-k;

inc(a);

end;

end;

if a[n+1]>0 then n:=n+1;

b:=1;

for i:=1 to n div 2 do if a[i]a[n-i+1] then b:=0;

if step>=30 then

begin

write('Impossible!');

halt

end;

end;

write('STEP=',step);

end.

话说 因为好久没遇到这么水 的水题了

就做得太激动兴奋了

结果忘了 在step>30时 输出impossible

不能一次秒杀

遗憾啊 (#‵′)凸

编译通过...

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

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

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

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

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

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

....感动得要哭了，我第一次一次AC。。。。

要养成好习惯，每次都把样例输出复制下来仔细看看格式。。。

今天好高兴啊。。虽然题目做得不是很多，但但一次AC!!!我今天的这一小步是我OI历程中的一大步

program dsa;

type num=array[1..10000]of integer;

var a:string;

b:num;

i,j,k,n:longint;

ci:integer;

function p:boolean;

begin

p:=true;

for i:=1 to (k div 2) do p:=p and (b[i]=b[k-i+1]);

end;

procedure jia;

var i,jin:longint;p:num;

begin

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

for i:=1 to k do p[i]:=b[i]+b[k-i+1];

for i:=1 to k do

begin

p:=p+p[i] div n;

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

end;

if p[k+1]0 then k:=k+1;

b:=p;

end;

begin

readln(n);

readln(a);

for i:=1 to length(a) do if a[i] in ['0'..'9'] then val(a[i],b[i])

else b[i]:=ord(a[i])-55;

k:=length(a);

ci:=0;

repeat

inc(ci);

jia;

until (p) or (ci=31);

if ci=31 then writeln('Impossible!')

else writeln('STEP=',ci);

end.

农夫山泉

#include"stdio.h"

#include"string.h"

char s[1000];

long n,i,a[1000],all,b[1000],c[1000];

int ok(long a[1000])

{

long i;

for(i=1;i

Impossible 后面有个! 晕

一次AC

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

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

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

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

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

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

program project1;

type

arr=array[1..10000] of integer;

var m:string;

b:arr;

i,j,len:longint;

n,k:0..100;

function pan:boolean;

begin

pan:=true;

for i:=1 to len div 2 do

if b[i]b[len-i+1] then exit(false);

end;

procedure jia;

var ans:arr;

begin

fillchar(ans,sizeof(ans),0);

for i:=1 to len do

ans[i]:=b[i]+b[len-i+1];

for i:=1 to len do

begin

ans:=ans+ans[i] div n;

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

end;

if ans[len+1]0 then len:=len+1;

b:=ans;

end;

begin

readln(n);

readln(m);

len:=length(m);

for i:=1 to length(m)do

if m[i] in ['0'..'9']then val(m[i],b[i])

else b[i]:=ord(m[i])-55;

k:=0;

while (not pan) and (k30 then write('Impossible!')

else write('STEP=',k);

readln;readln;

end.

编译通过...

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

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

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

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

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

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

怕麻烦；做了个菜鸟级的进制装换；没帮法；数据太弱了！

嘿嘿,水能够发个代码上去啊？我怎么也不会做啊！