上思县华加中学怎么样⊙ω⊙？

问题描述

精选答案

Vars,f,g:string;k1,k2,j1,j2,l,i:Integer;e:boolean;BeginWrite(''InputfileName:'');readln(f);Write(''OutputfileName:'');readln(g);assign(Input,f);assign(Output,g);reset(Input);rewrite(Output);k1:=0;k2:=0;j1:=0;j2:=0;e:=False;WhileNot(eof(Input))andNot(e)doBeginreadln(s);l:=length(s);Fori:=1toldoBeginIf((k1>=11)or(k2>=11))and(abs(k1-k2)>=2)ThenBeginwriteln(k1,'':'',k2);k1:=0;k2:=0End;Ifs[i]=''W''Thenk1:=k1+1;Ifs[i]=''L''Thenk2:=k2+1;Ifs[i]=''E''ThenBegine:=True;breakEnd;End;End;writeln(k1,'':'',k2);writeln;close(Input);assign(Input,f);reset(Input);k1:=0;k2:=0;e:=false;WhileNot(eof(Input))andNot(e)doBeginreadln(s);l:=length(s);Fori:=1toldoBeginIf((k1>=21)or(k2>=21))and(abs(k1-k2)>=2)ThenBeginwriteln(k1,'':'',k2);k1:=0;k2:=0End;Ifs[i]=''W''Thenk1:=k1+1;Ifs[i]=''L''Thenk2:=k2+1;Ifs[i]=''E''ThenBegine:=True;breakEnd;End;End;writeln(k1,'':'',k2);close(Input);close(Output)End.