Question

Составьте программу на языке паскаль для подсчета суммарного числа букв "е" и "о" в строковой величине

Answer 1

Var s:string; j,p:integer;
begin readln(s); p:=0; for j:=1 to length(s) do if(s[j]='e')or(s[j]=o)then inc(p); writeln(p); readln end.

var s:string; j,e,o:integer;
begin
readln(s); e:=0; o:=0;
for j:=1 to length(s) do begin if s[j]='e' then inc(e); if s[j]=o then inc(o);
if o > e then writeln('o'); if o < e writeln('e'); if o=e then writeln('oe'); readln
end.

Счет букв ведется для латинских строчных букв o и e.)

Answer 2

Вот пример программы на языке Pascal для подсчета суммарного числа букв "е" и "о" в строковой величине:

rustCopy code
program CountEO;

var
  str: string;
  countE, countO: integer;
  i: integer;

begin
  countE := 0;
  countO := 0;

  writeln('Введите строку:');
  readln(str);

  for i := 1 to length(str) do
  begin
    if (str[i] = 'e') or (str[i] = 'E') then
      countE := countE + 1
    else if (str[i] = 'o') or (str[i] = 'O') then
      countO := countO + 1;
  end;

  writeln('Количество букв "е" в строке: ', countE);
  writeln('Количество букв "о" в строке: ', countO);

  readln;
end.

Программа начинается с объявления переменных: str для хранения вводимой пользователем строки, countE и countO для подсчета количества букв "е" и "о" соответственно, и i для итерации по символам строки.

Затем программа выводит сообщение для пользователя, запрашивая ввод строки, и считывает ее с помощью readln.

После этого программа проходит по каждому символу в строке с помощью цикла for и проверяет, является ли текущий символ буквой "е" или "о". Если да, то увеличивает соответствующий счетчик на единицу.

Наконец, программа выводит количество букв "е" и "о" в строке с помощью writeln.

Программа заканчивается считыванием любой клавиши с помощью readln.