???!!!!!!哪位帮帮忙,纠错一个

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

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

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

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

├ 测试数据 05:答案错误... ├ 标准行输出 a=0.00...

 ├ 错误行输出 a=-0.0...

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

Unaccepted 有效得分:83 有效耗时:0ms

var

a:string;

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

i,j,l,d,he1,he0:longint;

wzs:char;

procedure kao1(a:string;len:integer);

var

sz:longint;

code:integer;

begin

delete(a,len,1);

val(a,sz,code);

he1:=he1+sz;

end;

procedure kao0(a:string;len:integer);

var

sz:longint;

code:integer;

begin

val(a,sz,code);

he0:=he0+sz*(-1);

end;

procedure check(a:string);

var

len:longint;

begin

len:=length(a);

if a[len]=wzs then kao1(a,len)

else kao0(a,len);

end;

begin

readln(a);

for i:=1 to length(a) do

if (ord(a[i])>=97) and (ord(a[i])

1 条评论

  • 1

信息

ID
1344
难度
5
分类
模拟 点击显示
标签
递交数
2927
已通过
1018
通过率
35%
被复制
18
上传者