晕死 ~~~~~

没看见要补0

害我挖了N次

N>=5;

5~~~~~~~~~~~~~~~~

通过率啊 !!!

提交了10次才AC...

最后一次才发现自己以前是理解错误题目的意思...

唉...

编译通过...

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

　├ 错误行输出

├ 测试数据 02：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 03：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 04：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 05：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 06：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 07：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 08：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 09：运行时错误...| 错误号: 216 | 存取非法

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

　├ 错误行输出

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

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

啊！！！！！！！！！！！！！

编译通过...

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

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

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

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

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

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

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

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

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

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

　├ 错误行输出 9652...

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

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

啊！！！！！！！！

终于

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第一次 0 分

第二次 0 ms AC

惨痛教训：

1。数据类型 int ---|---|---|> long long

2。数值长度 变化 ---|---|---|> 根据输入确定后恒定

3。输入数值可能在循环节中第一位

program p1024;

var

i,j,k,n,p,m1,code,l:longint;

y,e:int64;

m,m2,m3:string;

a:array[1..10000] of string;

x:char;

begin

repeat

p:=0;

k:=0;

readln(m);

inc(k);a[k]:=m;

m1:=length(m);

repeat

m2:=m;

m3:=m;

for i:=1 to m1 do

for j:=i to m1 do

begin

if m2[j]>m2[i] then begin x:=m2[i];m2[i]:=m2[j];m2[j]:=x;end;

if m3[j]

for i:=1 to 100 do

begin

readln(m1[i]);

l:=length(m1[i]);

for j:=1 to l do

m[i]:=m[i]*10+ord(m1[i][j])-48;

if(m1[i]='') then break;

end;

这一段我想了好久啊

程序不到1小时就好了。。。。晕

话说，如下代码：

while not eof do

begin

flag:=false;

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

readln(x);

错误：216。

保证没有其他读入，希望各位牛帮忙看看为什么，谢谢！

一次ac.....就是模拟

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

提交了4次终于AC，原因，第一次第二次应当使用eof而不能用seekeof，第上次提交使用int64过了9个点，第四次应当将输入数据也计算进去这样就可以过了，其实没必要用快排，用冒泡就过了。。。。:-)。纪念一下

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

还算容易吧..

注意一下后一个数的生成方式

开始我还以为他和他的倒序相减然后取绝对值能……

某觉得用字符串比较简单.....

飘走....

lixfeng2k1

你的错误是输出最后多了个空格

• - 我还以为要HASH。。

1次90，2次AC。

主要有2点，

1、数据量要用int64。因为一个maxlongint倒过来可能溢出longint。

2、读入那个数据也要算在循环内。因为它可能就是圆舞曲的开头。这也是我第1次没过的原因。这点体现在第10个数据上：863098632。

主要思路是，

递归字符串s，过程中对s进行升序，降序操作（冒泡排序（升序），降序只要把升序的字符串倒置一下就可以了），对结果记录在数组a中，继续递归结果s。递归结束条件是在数组中查找到当前递归的s（即圆舞曲结束了），这时跳出并输出。

2次AC……

temp:int64……

记得在vijos上c的格式输出要用I64d而不是lld啊...

害我wa了n次~

晕死了！我第一次提交不过，发现需要int64。连错4次以后发现是一个辅助变量忘了改成int64了……命苦啊……

终于全部AC了....

提交了10此- -！

PS：第10个数据出错的人，要考虑刚输入的字符串S，要从它开始循环。

再贴上第10个数据，863098632。