Текстовый файл содержит только заглавные буквы латинского алфавита (ABC…Z). Определите символ, который чаще всего встречается в файле сразу после
Например, в тексте EBCEEBEDDD после
Для выполнения этого задания следует написать программу. Ниже приведён файл, который необходимо обработать с помощью данного алгоритма.
Для решения этой задачи считаем строку из файла. Инициализируем строковую
Приведём решение данной задачи на языке Pascal.
var
len, max, count: longint;
s, s1: string;
maxC: char;
f: text;
begin
assign(f,'C:\24.txt');
reset(f);
readln(f, s);
len := length(s);
s1 := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
for i:integer := 1 to len do begin
if ((s[i] = 'E') and (i <> len)) then
s1 := s1.Substring(0, s1.LastIndexOf(s[i+1])) + s[i+1] + s1.Substring(s1.LastIndexOf(s[i+1]));
end;
len := length(s1);
max := 1;
count := 0;
for i:integer := 1 to len-1 do begin
if (s1[i] = s1[i+1]) then count := count + 1
else count := 0;
if count > max then begin
max := count;
maxC := s1[i];
end;
end;
writeln(maxC);
end.
В результате работы данного алгоритма при вводе данных из файла в условии получаем ответ — Y.
Ответ: Y.
Примечание. Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.
Приведём другое решение.
var
arr: array ['A'..'Z'] of integer;
i, max: integer;
s: string;
sym, maxIndex: char;
f: text;
begin
assign(f, 'C:\Users\Александр\Desktop\РешуЕГЭ\Временные файлы\24.txt');
reset(f);
readln(f, s);
for i := 1 to s.Length - 1 do
if (s[i] = 'E') then
inc(arr[s[i+1]]);
for sym := 'A' to 'Z' do
if arr[sym] > max then begin
max := arr[sym];
maxIndex := sym;
end;
writeln(maxIndex);
end.
Приведём решение Петра Полякова на языке Python.
from collections import Counter
f=open('24.txt')
s=f.readline()
g=''
for i in range(len(s)-1):
if s[i] == 'E':
g=g+s[i+1]
print(Counter(g).most_common()[0][0])
Приведём решение Саламатина Тимура на языке Python.
f = open('24.txt')
a = 'QWRTYUIOPASDFGHJKLZXCVBNM'
a = sorted(a)
m = 0
zxc = ''
b= f.read()
for i in a:
if b.count('E'+i) > m:
m = b.count('E'+i)
zxc = i
print(zxc)