Предмет: Информатика, автор: Аноним

Отдаю последние баллы, помогите пожалуйста.. Задание из ЕГЭ по информатике.
Написать программу, которая ищет в файле цифру, встречающуюся чаще всего.​


pinguinbird: на каком языке писать?

Ответы

Автор ответа: pinguinbird
0

На Питоне:

path = 'F:/file.txt'

with open(path, 'r', encoding='utf-8') as f:

   data = f.read()

   f.close

a = [0 for i in range(10)]

for char in data:

   if char == '0': a[0]+=1

   elif char == '1': a[1]+=1

   elif char == '2': a[2]+=1

   elif char == '3': a[3]+=1

   elif char == '4': a[4]+=1

   elif char == '5': a[5]+=1

   elif char == '6': a[6]+=1

   elif char == '7': a[7]+=1

   elif char == '8': a[8]+=1

   elif char == '9': a[9]+=1

print(a)

digit = max(a)

if digit > 0:

   print(f'Самая часто встречающаяся цифра в файле {a.index(digit)}. Она встречается {digit} раз.')

else:

   print('В файле нет цифр.')

Приложения:

pinguinbird: надо было конечно это сразу написать...я попозже тогда на Паскале напишу...
pinguinbird: код не помещается в комментарии. Куда вам можно его прислать?
pinguinbird: Или давайте просто разобью на несколько комментариев
pinguinbird: var x:string;
f:Text;
path:string = 'f:\file.txt';
i,j,k:integer;
a:array[0..9] of integer = (0,0,0,0,0,0,0,0,0,0);
begin
x:='';
assign(f, path);
reset(f);
while not eof(f) do begin
while not eoln(f) do begin
readln(f, x);
for i:=1 to Length(x) do begin
case x[i] of
'0':inc(a[0]);
'1':inc(a[1]);
'2':inc(a[2]);
pinguinbird: '3':inc(a[3]);
'4':inc(a[4]);
'5':inc(a[5]);
'6':inc(a[6]);
'7':inc(a[7]);
'8':inc(a[8]);
'9':inc(a[9]);
end;
end;
end;
end;
writeln('Common statistics of the digits in "', path, '":');
k:=0;
for i:=0 to 9 do begin
writeln(i, ' = ', a[i]);
if k
pinguinbird: k:=a[i];
j:=i;
end;
end;
writeln();
write('The digit which appears more frequently than others is ', j, ' and there are ', k, ' entries of it in the file.');
end.
pinguinbird: Блин, в комментариях убираются некоторые символы...
pinguinbird: Давайте я всё-таки вам куда-то перешлю...или в новый вопрос или на почту может...
Похожие вопросы