Бэтмен считал день удачным, если ему удавалось совершить подвиг, и неудачным, если его...

Question

Бэтмен считал день удачным, если ему удавалось совершить подвиг, и неудачным, если его помощь была в этот день не нужна. Супергерой вёл дневник, в котором отмечал каждый день либо У (удачный), либо Н (неудачный). По строке, содержащей символы У и Н, определите самую длинную последовательность из удачных дней.

Answer 1

Var s:string;
     i,k,maxK:integer;
begin
     s:='YHYYHHHHYYYYYYHHYYYYYYYHYHYHYYYYHYYYYYYY';
      k:=0;
     maxK:=k;
 for i:=1 to length(s) do
          if (s[i]='Y') then
                       k:=k+1 
          else begin 
                if maxK>K then maxK:=k;
                k:=0;
           end;
write(maxK);

readln;
end.