Текстовый файл содержит только заглавные буквы латинского алфавита (ABC…Z). Определите символ, который чаще всего встречается в файле между двумя одинаковыми символами.
Например, в тексте CBCABABACCC есть комбинации CBC, ABA (два раза), BAB и CCC. Чаще всего — 3 раза — между двумя одинаковыми символами стоит B, в ответе для этого случая надо написать B.
Например, в тексте CBCABABACCC есть комбинации CBC, ABA (два раза), BAB и CCC. Чаще всего — 3 раза — между двумя одинаковыми символами стоит B, в ответе для этого случая надо написать B.
More Questions From This User See All
Answers & Comments
Ответ:
У меня "O" получилось больше
Объяснение:
A=open("путь и имя файла")
F=A.readline()
A.close()
max=0
k=0
S=[]
for i in range(len(F)-2):
if F[i]==F[i+2] and F[i+1]!=F[i]:
k+=1
S+=F[i]
S.sort()
print(k)
print(S)
k=0
for i in range(len(S)-1):
if S[i]==S[i+1]:
k+=1
print(k)
else:
if k>max:
max=k
maxb='Чаще всего встречается:{}'.format(S[i])
k=0
print(maxb)
var
s:string;
max,i:integer;
f:text;
a:array['A'..'Z'] of integer;
j,d:char;
begin
assign(f,'путь файла');
reset(f);
read(f,s);
max:= 0;
for i:= 1 to length(s)-2 do
if (s[i] = s[i+2] ) then
a[s[i+1]]:= a[s[i+1]] + 1;
for j:= 'A' to 'Z' do
if a[j] > max then
begin
max:= a[j];
d:= j;
end;
writeln(d);
end.