Предмет: Информатика,
автор: tanyamink1987
Текстовый файл 24-5.txt состоит не более чем из 106 заглавных латинских букв (A..Z). Файл разбит на строки различной длины. В строках, содержащих менее 20 букв E, нужно определить и вывести максимальное расстояние между одинаковыми буквами в одной строке.
Пример. Исходный файл:
VOVA
ZAEALE
QRAEQT
В этом примере во всех строках меньше 20 букв E. Самое большое расстояние между одинаковыми буквами – в третьей строке между буквами Q, расположенными в строке на 1-й и 5-й позициях. В ответе для данного примера нужно вывести число 4.
Ответы
Автор ответа:
1
Ответ:
var str: string; cntA, cntE: integer; cntStr: integer; f: text; begin assign(f,'C:\24.txt'); reset(f); cntA := 0; cntE := 0; cntStr := 0; while not Eof(f) do begin readln(f, str); for k:integer := 1 to length(str) do begin if (str[k] = 'A') then cntA := cntA + 1 else if (str[k] = 'E') then cntE := cntE + 1; end; if (cntE > cntA) then cntStr := cntStr + 1; cntE := 0; cntA := 0; end; writeln(cntStr); end.
В результате работы данного алгоритма при вводе данных из файла в условии получаем ответ — 467.
Ответ: 467.
Примечание. Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.
Похожие вопросы
Предмет: Русский язык,
автор: alexsandrnesin555
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: yasca
Предмет: Математика,
автор: privatimail