var

s:string；

n,i:integer；

n1:array[1..100000] of word；

begin

readln(s)；

for i:=1 to length(s) do

n1[i]:=ord(s[i])-48；

n:=length(s)；

while n>2 do

begin

for i:=1 to n-1 do

begin

n1[i]:=n1[i]+n1[i+1]；

if n1[i]>=10 then n1[i]:=n1[i] mod 10；

end；

dec(n)；

end；

if (n1[1]=0)and(n1[2]=0) then writeln(100)

else writeln(n1[1],n1[2])；

end.

为什么我错的地方输出都是28....

只过了3个点

So I am..

总而言之言而总之

这一题考察二项式系数

LZ 这种赤裸的模拟是难以满分的了~

不过所谓难者不会会者不难，我也没有满分掉

MS这题在网站改版后就没人AC过。。

MS这题在网站改版后就没人AC过。。

不好意思手抖了，点了两下提交。。。

回复 楼主zjlsykw3636 的帖子

串长<=100000 string装不下

不对不对 var n,x,i,j,m:longint;

d,a:array[1..1000] of longint;

procedure qsort(head,tail:longint);

var x,i,j:longint;

begin

x:=d[head];

i:=head;

j:=tail;

while i<j do

begin

while(i<j)and(d[j]>=x)do j:=j-1; d[i]:=d[j];

while(i<j)and(d[i]<=x)do i:=i+1; d[j]:=d[i];

end;

d[i]:=x;

if head<i-1 then qsort(head,i+1);

if i+1<tail then qsort(i+1,tail);

end;

begin

readln(n);

for i:=1 to n do read(d[i]);

qsort(1,n);

i:=1;

while i<=n do

begin

i:=i+1;

while d[i]=d[i-1] do begin

for j:=1 to n do begin

d[j-1]:=d[j];

d[j]:=0

end;

n:=n-1;

end;

end;

writeln(n);

for i:=1 to n-1 do write(d[i],' ');

write(d[n]);

end.

不对不对 var n,x,i,j,m:longint;

d,a:array[1..1000] of longint;

procedure qsort(head,tail:longint);

var x,i,j:longint;

begin

x:=d[head];

i:=head;

j:=tail;

while i<j do

begin

while(i<j)and(d[j]>=x)do j:=j-1; d[i]:=d[j];

while(i<j)and(d[i]<=x)do i:=i+1; d[j]:=d[i];

end;

d[i]:=x;

if head<i-1 then qsort(head,i+1);

if i+1<tail then qsort(i+1,tail);

end;

begin

readln(n);

for i:=1 to n do read(d[i]);

qsort(1,n);

i:=1;

while i<=n do

begin

i:=i+1;

while d[i]=d[i-1] do begin

for j:=1 to n do begin

d[j-1]:=d[j];

d[j]:=0

end;

n:=n-1;

end;

end;

writeln(n);

for i:=1 to n-1 do write(d[i],' ');

write(d[n]);

end.

手抖 也点了两下

手抖 也点了两下