16.04.2013, 11:53
|
#2 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
