谁能通过第五个测试数据的?

靠，那么简单的题~~

你能通过我拜你

______为徒弟

注:本帖非本人发表

哪个笨乌龟问的，SO简单的题打不上来，你刚学PASCAL的吧！！！！！

堕落的乌龟。。。。。。我无语。。。。。。为了你的IQ

乌龟 我们明天到乌龟河钓乌龟 不是乌龟 留

我通过了谁拜我为师啊

姓王名八的,想单挑啊,说,是CS,还是魔兽,还是泡泡,要不然就是连连看

真是的，有程序给你你都看不懂。。。。。。笨笨……啊，不，乌龟本来就没IQ哦……………………………………乌龟啊，乌龟啊。你要程序吗？你要你就说嘛，你这样看着我我也不知道你要不要啊，虽然我知道你很有诚意，这样看着我我也没办法啊，你要嘛？你要嘛？？（PS：此人被乌龟看的一句话不想再说了……你想看见两个乌龟眼在你前面看吗？）！！！

program ab;var w,e:integer;c:string[22];procedure abc(i:integer); begin write('the num is ',i); repeat begin read(c); if c='E' then e:=e+1; if c='w' then w:=w+1; if w+e=i then begin write(e,':',w); writeln; c:=''; e:=0;w:=0; end; c:=''; end; until c='l'; if (c='l')and(e+w<>0) then write(e,':',w); end; begin w:=0; e:=0; abc(11); writeln; abc(21); end.