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
|
|
|