Question

free pascal问题

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

下面是普及组的：

来源：http://www.wendangdaquan.com/Wdshow.asp?id=5b8690649b6648d7c1c74652

注：//及后面中文内容可以不打。

追问

你自己能不能写一个，最好不这么写，因为这个我看过啦

Answer 2

问题在哪里呀？？？
又忘发了吗？？？

追问

noip2008的第一题

追答

var s:string;
i,j,n,m,k,l,t:longint;
v:char;
begin
readln(s);
delete(s,2,1);
delete(s,5,1);
delete(s,10,1);
for i:=1 to 9 do begin
t:=(ord(s[i])-48)*i+t;
end;
case t mod 11 of
10:v:='X';
else begin
v:=chr((t mod 11)+48);
end;
end;
if s[10]=v then writeln('Right')
else writeln(s[1],'-',s[2],s[3],s[4],'-',s[5],s[6],s[7],s[8],s[9],'-',v);
end.

我在wikioi里面过了的