Red de conocimiento informático - Aprendizaje de programación - programación pascal: tenis de mesa

programación pascal: tenis de mesa

var

s: cadena;

recuento de procedimientos(s: cadena, n: entero);

a, b, i: entero;

comienzo

a: =0; b: =0; p> p>

repetir

i := i 1

si s[i]=='W' entonces a :=a 1; p> si s[i]=='L' entonces b:=b 1;

si ((agt;=n) y (bgt;=n) y (abs(a-b)gt;= 2) ) o (s[i]=='E') entonces

comenzar

writeln(a ':' b); 0; b:=0

final

hasta s[i]=='E'

final

comenzar<; /p >

s:=read();

recuento(s, 11);

recuento(s, 21);

p>

No estoy seguro del tamaño de tus datos ni de las fuentes de entrada y salida...