```cpp
别解答了，已经AC了
```
by 我爱编程 @ 2017-03-28 22:26:21
附满分代码：
```cpp
var
s:string;
zh:0..9;
len,a,b,c: integer;
procedure zhuanhuan(p:char);
begin
case p of
'0':zh:=0;
'1':zh:=1;
'2':zh:=2;
'3':zh:=3;
'4':zh:=4;
'5':zh:=5;
'6':zh:=6;
'7':zh:=7;
'8':zh:=8;
'9':zh:=9;
'a':zh:=a;
'b':zh:=b;
'c':zh:=c;
end;
end;
procedure zhuanhuan2(p:char);
begin
if (p='a') then a:=zh;
if (p='b') then b:=zh;
if (p='c') then c:=zh;
end;
begin
a:=0;
b:=0;
c:=0;
len:=1;
readln(s);
repeat
if (s[len]=';') then begin zhuanhuan(s[len-1]); zhuanhuan2(s[len-4]); zh:=0; end;
inc(len);
until len>length(s);
writeln(a,' ',b,' ',c);
readln;
end.
```
by 我爱编程 @ 2017-03-28 22:26:55