vj1217 乒乓球

vj1217...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //Ä£Äâ //×¢ÒâƹÅÒÇò»ñʤ¹æÔò //¹æÄ£Òª¿ª´óЩ //Îļþ²âÊÔ¼ÇµÃ¹Ø±Õ ·ñÔò´ó¹æÄ£»áÊä³öÉÙ / const maxn=10000; var w1,l1,w2,l2,t1,t2:integer; a,b:array[0. .maxn,0. .1] of integer; procedure print; var i:integer; begin for i:=1 to t1 do writeln(a[i,0],':',a[i,1]); writeln; for i:=1 to t2 do writeln(b[i,0],':',b[i,1]); halt; end; procedure main; var ch:char; begin while true do begin while not eoln do begin read(ch); if ch<>' ' then begin
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/21/2011 for the course CS 001 taught by Professor 001 during the Spring '11 term at Shandong University.

Ask a homework question - tutors are online