Cтроковый тип

[Леночка]

Cтроковый тип

помогите, люди добрые. задача. паскаль. дан текст. найти наибольшее кол-во идущих подряд одинаковых символов

 

[Vladimir_S]

помогите, люди добрые. задача. паскаль. дан текст. найти наибольшее кол-во идущих подряд одинаковых символов

Легко:

Var
 S:String;
 C,Cmax:Char;
 N,N1,i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 N:=1;
 N1:=1;
 i:=1;
 C:=S[1];
 Cmax:=C;
 Repeat
  Inc(i);
  While S[i]=C do
   begin
    Inc(N1);
    Inc(i);
   end;
  If N1>N then
   begin
    N:=N1;
    Cmax:=C;
   end;
  C:=S[i];
  N1:=1;
 Until i>=Length(S);
 Writeln('Symbol "'+Cmax+'", ',N,' times');
 Readln
End.