嘛意思？｀Д´|

快乐的小狮子 @ 2018-04-22 07:31:03

by 快乐的小狮子 @ 2018-04-22 07:42:51

脑子灵光一闪——噢，狮子懂了！

by 快乐的小狮子 @ 2018-04-22 07:43:25

(^▽^)|||抱歉打扰啦

by 据设错了 @ 2018-08-11 21:52:35

？？？

by 据设错了 @ 2018-08-11 21:52:57

@快乐的小狮子 啥，没听懂

by 快乐的小狮子 @ 2018-08-15 16:53:45

var s,sum:ansistring;
    len,i,k:longint;
begin
  readln(s);len:=length(s);write(len);
  for i:=1 to len-1 do
  begin
    readln(sum);
    s:=s+sum;
  end;k:=1;
  for i:=2 to length(s) do
  if s[i]<>s[i-1] then begin write(' ',k);k:=1;end
  else inc(k);
  writeln(' ',k);
end.

这代码哪里错了(=@_@=)