Ответы на вопрос:
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< ch[i]then begin max: =ch[i]; imax: =i end; writeln('символ "',chr(imax),'" встретился ',max,' раз(а)') end. тестовое решение: введите текст "что значит имя? роза пахнет розой, хоть розой назови её, хоть нет." (в.шекспир) символ "о" встретился 9 раз(а)
Популярно: Информатика
-
romapigula135707.02.2023 14:36
-
Настя085726.01.2023 22:49
-
Алжсжсзвьвлвждчяь04.12.2021 18:06
-
abdidiyar2013206.09.2022 23:12
-
MartKsenka05.03.2021 09:04
-
5rv23.08.2020 19:23
-
Анна536364601.04.2020 10:14
-
GoriachiyKirill16.07.2022 08:46
-
Хорошистка54119.03.2023 22:35
-
irinawinchester66629.09.2020 13:32