编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

秒杀！

哪位大牛讲一下循环节的起始位置在哪里呢？

样例好像就有矛盾，第一个输出的前一个。而第二个输出的就是已出现循环的第二位。。。晕了，所以要不一组提前，要不一组滞后。。。只有最后一组能过。。。

注意原数可能成为循环节的一部分

#include

#include

#define WEI(n,i) ((n)/TEN[(i)-1])%10;

#define maxl 100

#define maxstep 100000

long long n,num;

long long TEN[12],rec[maxstep+10];

void GetMinMax(long long *a,long long *b)

{

long long min=0,max=0,c[maxl+10],tmp,i,j;

for(i=1;i

N久前没过的水题。。。

很水。。

无聊死了。。刷刷通过题目！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

通过 　　1700人

提交 　　8282次

本人AC的第99题

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

伟大的C++!

第一次,在我毫不知情的情况对字符串与数字进行转换,并拿了个90分..

type

integer=longint;

var

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

j:array[1..1000]of qword;

j1,len,sum:integer;

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

yes:boolean;

xun:qword;

procedure qsort(l,r:integer);

var i,j,mid,p:integer;

begin

i:=l;

j:=r;

mid:=c[(i+j)div 2];

repeat

while c[i]mid do dec(j);

if ij;

if j>l

then qsort(l,j);

if i

本以为题目范围满足所有中间量都

给你的数本身也是圆舞曲的一环

人品啊……同样的程序第一次90分，第二次AC……

program c1024;

type arr=array [1..1000] of string;

arr2=array [1..1000] of int64;

var a:arr2;

s:arr;

kb:arr2;

l,star,end1:integer; max,min:int64;

procedure chan(ss:string);

var i,j,code:longint;

begin

for i:=1 to l do

begin

val(ss[i],a[i],code);

s[i]:=ss[i];

end;

end;

procedure kp(ii,jj:int64);

var l1,r,mid,x:int64; y:string;

begin

l1:=ii;

r:=jj;

mid:=a[(ii+jj) shr 1];

repeat

while a[l1]mid do dec(r);

if l1r;

if l1ii then kp(ii,r);

end;

procedure Print;

var i:longint;

begin

for i:=star to end1 do

write(kb[i],' ');

writeln;

end;

procedure Love(x:int64);

var i,j:longint; tt:boolean; st:string; code:integer; mid:int64;

begin

str(x,st);

chan(st);

kp(1,l);

inc(star);

max:=0;

for i:=l downto 1 do

begin

st:='';

st:=s[i];

for j:=i-1 downto 1 do

st:=st+'0';

val(st,mid);

inc(max,mid);

end;

min:=0;

for i:=1 to l do

begin

st:='';

st:=s[i];

for j:=l-i downto 1 do

st:=st+'0';

val(st,mid);

inc(min,mid);

end;

x:=max-min;

kb[star]:=x;

j:=star;

tt:=true;

for i:=1 to star-1 do

if kb[j]=kb[i] then begin end1:=star-1; star:=i; tt:=false; end;

if tt then Love(x)

else print;

end;

procedure Init;

var x:int64;i:longint; st:string; code:integer;

begin

while not eof do

begin

fillchar(s,sizeof(s),0);

fillchar(kb,sizeof(kb),0);

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

star:=1;

readln(st);

val(st,x,code);

l:=length(st);

kb[1]:=x;

if l=4 then writeln('6174') else

Love(x);

end;

end;

begin

Init;

end.

md,不能用longint,开始用longint,10分,然后用in64, ac...

var i,j,k,l,o:longint;

m:char;

a,x:array[1..50]of integer;

sc:array[1..10000,1..50]of integer;

tz:boolean;

procedure kp(t,w:longint);

var i,j,zs,o:longint;

begin

i:=t;

j:=w;

zs:=a[(t+w)div 2];

while a[i]>zs do inc(i);

while a[j]

过了

BS 输入的那个也算

。。。。。

编译通过.编译通过...

├ 测试数据 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：答案错误...

最后点过不了

哪个大牛帮忙看看

program ywq;

var s1:string;

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

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

i,j,n,n1,t,k:integer;

procedure ch(s:string);

var s1,s2:string;

k1,k2:int64;

code:byte;

begin

n:=length(s);

for i:=1 to n do a[i]:=ord(s[i])-48;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]

var s:string;

　　f:array[1..9] of integer;

　　j,l,k,i,code,m:integer;

　　t:boolean;

begin readln(s);

　　 l:=0;

　　 s:=s+' ';

　　 while l1 then write(f[i],'x^',9-i);

　　　　　　　　 if f[i]1 then write(f[i],'x');

　　　　　　　　 if f[i]1 then write(' + ',f[i],'x^',9-i);

　　　　　　　　 if f[i]1 then write(' + ',f[i],'x');

　　　　　　　　 if f[i]

/C20 f wefwe tfweg

开始使用long，得了十分！

换成double：

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

源代码在此！！！：

#include

#include

double number,circle[500000];

double pow1(int n)

{

if(n==0)return 1;

return 10*pow1(n-1);

}

double confuse(double num)

{

char ch[150];

int i,j;

double max=0,min=0;

sprintf(ch,"%.0f",num);

for(i=0;i

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

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

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

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

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

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

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

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

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

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

第7777个人哈

模拟，很简单

program kabulieke;

var st,temp:string; p,k,t,a,b:int64; i:longint;

x:array[1..1000] of int64; f:boolean;

{//////////////////////////////////////////////////////}

procedure sort(var st:string);

var i,j,p:integer; t:char;

begin

for i:=1 to length(st)-1 do

begin p:=i;

for j:=length(st) downto i+1 do

if st[p]

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

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

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

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

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

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

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

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

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

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

用hash的话不要用那个49069会wa一个点,用50000就可以了...

无算法题……给只猪做它都能做出来……就是麻烦点，120行解决

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

模拟可以过