题解 P1788 【【初赛】提高组2013】

心如止水丶 · 2017-11-03 17:48:14 · 题解

Pascal得这么交：

'‘’

BEgin
Writeln('A||1.5');
Writeln('A||1.5');
Writeln('B||1.5');
Writeln('D||1.5');
Writeln('A||1.5');
Writeln('B||1.5');
Writeln('D||1.5');
Writeln('B||1.5');
Writeln('D||1.5');
Writeln('D||1.5');
Writeln('C||1.5');
Writeln('B||1.5');
Writeln('D||1.5');
Writeln('B||1.5');
Writeln('B||1.5');
Writeln('AC||1.5');
Writeln('AD||1.5');
Writeln('CD||1.5');
Writeln('AB||1.5');
Writeln('ABCD||1.5');
Writeln('0,1,1,1||0111||5');
Writeln('37/12||3+1/12||5');
Writeln('Yes||8');
Writeln('133||8');
Writeln('4||8');
Writeln('7||8');
Writeln('n-p+i||(n-p)+i||n+i-p||2');
Writeln('i-p+1||(i-p)+1||i+1-p||2');
Writeln('i - p||a[i-p]||2');
Writeln('j <= end2||end2>=j||3');
Writeln('i||start2||end1+1||3');
Writeln('j - 1||j-i||3');
Writeln('j - i||j-1||3');
Writeln('cur1||3');
Writeln('dec(count1)||--count1||count1--||count1=count1-1||count1:=count1-1||2');
Writeln('dec(count2)||--count2||count2--||count2=count2-1||count2:=count2-1||2');
Writeln('cur1 := a[j]||cur1 = a[j]||3');
end.
‘’‘’