他个老阴人

只是说初始小于maxlongint...

变着变着就大了啊...

郁闷

var stri:ansistring;

var num,t,cn,js,i:longint;

var c,r:array[1..100]of longint;

function bein(num:longint):integer;

begin

bein:=0;

repeat bein:=bein+1;until(c[bein]=num) or (bein=100);

if bein=100 then begin bein:=0; cn:=cn+1;c[cn]:=num;end;

end;

function getans(num:longint):longint;

var sa,sb,txt:ansistring;

var a:array[1..30] of integer;

var x,y,temp,b:longint;

begin

str (num,txt);

for x:=1 to length(txt) do val(txt[x],a[x]);{切割数组}

for x:=1 to length(txt) do for y:=x to length(txt) do{取正序到数组}

if a[y]0 then begin js:=js+1; r[js]:=num;end;

until eof;

{计算段}

for i:=1 to js do begin

t:=r[i];cn:=0;

while bein(t)=0 do t:=getans(t);

for t:=bein(t) to cn do write(c[t],' ');

writeln;

end;

readln;

end.

编译通过...

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

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

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

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

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

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

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

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

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

├ 测试数据 10：运行超时|格式错误...

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

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

为什么呀？？？？？？

#include

using namespace std;

int main(){

long long int p,maxp,minp,f[100],m,mp,H[10],t,x,mmp,s,xp,P[150000],wei,y;

bool flag;

while(1)

{

cin>>p;

if(p==xp){return 0;}

xp=p;flag=true;memset(P,0,sizeof(P));

wei=1;P[wei]=p;

if(p

program P1024;

var ln,n,m,i,j,l:longint;c:integer;a,x,y,cha:int64;

　　st,min,max:string;t:char;f:boolean;

　　b:array[0..1000]of int64;

begin

while not eof do

begin

readln(a);cha:=0;f:=false;n:=0;m:=0;b[0]:=a;

　　repeat

　　 str(a,st); min:='';max:='';

　　 ln:=length(st);

　　 for i:=1 to ln-1 do

　　　　for j:=i+1 to ln do

　　　　 if st[i]>st[j] then begin t:=st[i];st[i]:=st[j];st[j]:=t end;

　　 for i:=1 to ln do

　　　　begin

　　　　 min:=min+st[i];

　　　　 max:=st[i]+max;

　　　　end;

　　　　val(min,x,c);val(max,y,c);

　　 cha:=y-x; a:=cha;

　　 n:=n+1;b[n]:=cha;cha:=a;

　　 for i:=0 to n-1 do

　　 if cha=b[i] then begin m:=m+1;l:=i;break; end;

　　 if m=1 then f:=true;

　　until f;

　　if ln

var

a:array[1..100]of int64;

st:string;

s,nn,tt:integer;

function fu(j:integer):boolean;

var

b:boolean;

begin

b:=false;

for s:=1 to j-2 do

if a[j-1]=a then begin b:=true;nn:=s;end;

fu:=b;

end;

procedure search(i:integer);

var

min,max:int64;

b,c:array[1..10]of integer;

k,t:integer;

nt:int64;

begin

if fu(i) then

begin

for s:=nn to i-3 do write(a,' ');

writeln(a);

end

else

begin

a[i]:=0;nt:=a;

for s:=1 to tt do

if nt0 then

begin b:=nt mod 10;c:=b;nt:=nt div 10;end

else

begin b:=0;c:=0;end;

for s:=1 to tt-1 do

for k:=s+1 to tt do

begin

if b>b[k] then begin t:=b;b:=b[k];b[k]:=t;end;

if c

编译通过...

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

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

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

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

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

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

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

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

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

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

　├ 错误行输出

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

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

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

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

var

n:string;

ans:array[1..10000]of int64;

num:array[0..9]of longint;

function Ok(pos:longint):longint;

var

i:longint;

begin

for i:=1 to pos-1 do

if ans[i]=ans[pos] then exit(i);

exit(0);

end;

procedure main;

var

i,j,k,tmp,pos:longint;

max,min,a:int64;

smax,smin,t:string;

begin

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

fillchar(num,sizeof(num),0);

pos:=0;

for i:=1 to length(n) do

begin

tmp:=ord(n[i])-48;

inc(num[tmp]);

end;

smax:='';

t:='';

for i:=9 downto 0 do

for j:=1 to num[i] do

begin

str(i,t);

smax:=smax+t[1];

end;

smin:='';

t:='';

for i:=0 to 9 do

for j:=1 to num[i] do

begin

str(i,t);

smin:=smin+t[1];

end;

val(smax,max);

val(smin,min);

a:=max-min;

str(a,n);

repeat

fillchar(num,sizeof(num),0);

for i:=1 to length(n) do

begin

tmp:=ord(n[i])-48;

inc(num[tmp]);

end;

smax:='';

for i:=9 downto 0 do

for j:=1 to num[i] do smax:=smax+chr(i+48);

smin:='';

for i:=0 to 9 do

for j:=1 to num[i] do smin:=smin+chr(i+48);

val(smax,max);

val(smin,min);

a:=max-min;

inc(pos);

ans[pos]:=a;

str(a,n);

until Ok(pos)0;

for i:=Ok(pos) to pos-1 do

write(ans[i],' ');

writeln;

end;

begin

while not eof do

begin

readln(n);

main;

end;

end.

帮我看看哪里错了好不好。。。囧rz

编译通过...

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

　├ 错误行输出

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

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

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

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

　├ 错误行输出

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

　├ 错误行输出

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

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

　├ 错误行输出

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

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

　├ 错误行输出

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

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

学C的……用longlongMS不行，用double就可以了~~

真是郁闷了,用字符串写的时候,全都0分,不管怎么改,但是用int64而不用字符串储存时又全对,还是0ms真不知道为什么

用自己想出来的数据两个程序的输出结果比对后又是一模一样的啊,真是怪事了,用自己的数据,根本就如出一辙,可交上来评测结果又不一样,唉,郁闷

字符串写的结果:

编译通过...

├ 测试数据 01：答案错误...

　├ 标准行输出 7530...

　├ 错误行输出 8632...

├ 测试数据 02：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...

　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 06：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：答案错误...

　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 10：答案错误...

　├ 标准行输出

　├ 错误行输出

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

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

int64的结果:

编译通过...

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

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

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

自己两个程序的输出比对结果:

├ 测试数据 01：All same.

├ 测试数据 02：All same.

├ 测试数据 03：All same.

├ 测试数据 04：All same.

├ 测试数据 05：All same.

├ 测试数据 06：All same.

├ 测试数据 07：All same.

├ 测试数据 08：All same.

├ 测试数据 09：All same.

├ 测试数据 10：All same.

真是怪事了

循环节的第一个可能是输入数据。

再强调一遍，一定要用int64啊！我为此wa了3次，每次都是错误输出0。

注意要把输入的那个数存起来!!!!!!!!!!!!!!!!!

否则最后一组过不去.....

program P1024;

var ln,n,m,i,j,l:longint;c:integer;a,x,y,cha:int64;

st,min,max:string;t:char;f:boolean;

b:array[0..1000]of int64;

begin

while not eof do

begin

readln(a);cha:=0;f:=false;n:=0;m:=0;b[0]:=a;

repeat

str(a,st); min:='';max:='';

ln:=length(st);

for i:=1 to ln-1 do

for j:=i+1 to ln do

if st[i]>st[j] then begin t:=st[i];st[i]:=st[j];st[j]:=t end;

for i:=1 to ln do

begin

min:=min+st[i];

max:=st[i]+max;

end;

val(min,x,c);val(max,y,c);

cha:=y-x; a:=cha;

n:=n+1;b[n]:=cha;cha:=a;

for i:=0 to n-1 do

if cha=b[i] then begin m:=m+1;l:=i;break; end;

if m=1 then f:=true;

until f;

if ln

不知道为什么，用数组全部程序输出比正确答案长，用字符串就AC了

C++的同学们慎用atoi函数。。。

学C＋＋的直接用long long 就OK了，不需要用double的～

虽然long long 被禁止了，但long long才是王道～～～～！！！^_^

编译通过...

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

　├ 错误行输出

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

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

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

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

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

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

　├ 错误行输出

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

　├ 错误行输出

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

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

　├ 错误行输出

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

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

为什么会这样啊？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

必须使用 eof

如果使用 seekeof

后果自负~~~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var c,z:longint;

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

procedure huan(var a,b:char);

var c:char;

begin

c:=a;

a:=b;

b:=c;

end;

procedure qsort(l,r:longint;var s:string;dir:string);

var il,ir:longint;

m:char;

begin

il:=l;

ir:=r;

m:=s[(il+ir) div 2];

while ilord(m) do il:=il+1;

while ord(s[ir])