Подсчет суммарного числа

[Dimetra]

Подсчет суммарного числа

Кто может помочь с составлением программ для подсчета суммарного числа букв "е" и букв "о" в строковой величине.

 

[Vladimir_S]

Кто может помочь с составлением программ для подсчета суммарного числа букв "е" и букв "о" в строковой величине.

Так. Прежде всего, Вы "позабыли" указать несколько моментов:
1. Язык программирования.
2. В каком виде задана строка?
3. "е" и "о" - это буквы латиницы или кириллицы?
А раз так, то будем считать, что:
1. Язык Паскаль.
2. Строка записана в файле под названием "ххх", находящемся в корневом каталоге диска D: .
3. "е" и "о" - это буквы латиницы.
Тогда:

VAR
S:STRING;
f:Text;
i,S_o,S_e:INTEGER;

BEGIN
Assign(f,'D:\xxx');
ReSet(f);
ReadLn(f,S);
Close(f);
S_o:=0;
S_e:=0;
i:=0;
REPEAT
INC(i);
IF S='o' THEN INC(S_o) ELSE
IF S='e' THEN INC(S_e);
UNTIL i=Length(S);
WriteLn('The string contains ',S_o,' "o" letters and ',S_e,' "e" letters');
ReadLn;
END.