С клавиатуры вводится символьная строка.Определите какой символ встречается в ней чаще всего
С клавиатуры вводится символьная строка.Определите какой символ встречается в ней чаще всего
Гость
Ответ(ы) на вопрос:
Гостьtype
index='0'..'z';
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
{ очищаем массив счетчиков }
for i:=0 to 255 do Ch[i]:=0;
Writeln('Введите текст');
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
if max
Не нашли ответ?
Похожие вопросы