Предмет: Информатика,
автор: Аноним
Отдаю последние баллы, помогите пожалуйста.. Задание из ЕГЭ по информатике.
Написать программу, которая ищет в файле цифру, встречающуюся чаще всего.
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('В файле нет цифр.')
Приложения:
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]);
'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
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.
Похожие вопросы
Предмет: Биология,
автор: darya2546
Предмет: Биология,
автор: Lizaveta122002
Предмет: Українська мова,
автор: shost80
Предмет: Математика,
автор: deniz199720021
Предмет: Литература,
автор: VikaViktoria580