#9028: 本題心得
lsweizixuan
(摸鱼学语言)
經過幾天的努力，被無數次的NA洗刷后，我終於得到了AC
就我個人的想法，這道題pascal解的話，最後一組測資必定TLE
而且千萬不要用string做這道題，要不然會MLE
我是直接做輸出的，速度要比一般快得多，抓住應該輸出的做輸出效率會更高
下面這個程式應該能幫助大家：
var
a,p,q,z:longint;
c:char;
begin
readln(a);
while not eof do begin
p:=0;
z:=0;
read(c);
while (ord(c)<>10) and (ord(c)<>13) do begin
case c of
'p': inc(p);
'q': if p>0 then begin p:=p-1; inc(z); end;
end;
read(c);
end;
writeln(z);
end;
end.
////////////////////////////////////////////////
但是，千萬不要抄這個代碼（會NA）
一定要讀懂了再做這道題