Текстовый файл содержит строки различной длины. Общий объём файла не превышает 1 Мбайт. Строки содержат только заглавные буквы латинского алфавита (ABC…Z). Определите количество строк, в которых
Для выполнения этого задания следует написать программу. Ниже приведён файл, который необходимо обработать с помощью данного алгоритма.
Для решения этой задачи будем построчно считывать файл. В каждой строке с помощью цикла будем считать количество
Приведём решение данной задачи на языке Pascal.
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.
Примечание. Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.
Приведём решение на языке Python.
f = open('24.txt')
a = 0
for string in f:
if(string.count('A') < string.count('E')):
a += 1
print(a)
Приведём решение Николая Чуркина (Тимашевск) на языке Python.
f = open('24.txt')
c = 0
i = f.readline()
while i != '':
if i.count('E') > i.count('A'): c += 1
i = f.readline()
print(c)
Приведём решение Юрия Красильникова на языке Python.
print(len([s for s in open('inf_22_10_20_24.txt') if s.count('E')>s.count('A')]))