Цитата:
Сообщение от Леночка
помогите, люди добрые. задача. паскаль. дан текст. найти наибольшее кол-во идущих подряд одинаковых символов
|
Легко:
Код:
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.