为什么只过8个点?

begin

readln(s);

ts:=num(s[1])*1+num(s[3])*2+num(s[4])*3+num(s[5])*4+num(s[7])*5+num(s[8])*6+num(s[9])*7+num(s[10])*8+num(s[11])*9;

ts:=ts mod 11;

t:=ord(s[13])-ord('0');

if ts=t then write('Right')

else begin

for i:=1 to 12 do write(s[i]);

if ts=10 then writeln('x')

else writeln(ts);

end;

end.

2 条评论

  • 1

信息

ID
1484
难度
5
分类
字符串 点击显示
标签
递交数
14474
已通过
4959
通过率
34%
被复制
34
上传者