社区讨论

为啥只有40分

SSKTT1Faker
学术版参与者 3已保存回复 6

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
6 条
当前快照
1 份
快照标识符
@mi5hiihx
此快照首次捕获于
2025/11/19 12:10
4 个月前
此快照最后确认于
2025/11/19 12:10
4 个月前
查看原帖
CPP
var
a,b,c,e,f,g,h,h1:integer;
x:char;
y:string;
m:array[1..20] of char;
begin
f:=0;
g:=0;
for a:=1 to 13 do
begin
read(x);
m[a]:=x;
end;
for b:=1 to 12 do
begin
if m[b]<>'-' then
begin
f:=f+1;
val(m[b],c,h);
g:=g+c*f;
end;
end;
g:=g mod 11;
if g=10 then y:='x' else str(g,y);
if y=m[13] then write('right') else
begin
for b:=1 to 12 do
write(m[b]);
write(y);
end;
end.

回复

共 6 条回复，欢迎继续交流。

正在加载回复...