Question

Написать программу на языке паскаль, которая будет подсчитывать, каких букв в слове больше, О или Е.

Answer 1

Ответ:

var i,o,e: integer;

s:string;

begin

read(s);

for i:=1 to length(s) do

begin

if s[i]='о' then o:=o+1;

if s[i]='е' then e:=e+1;

end;

if o=e then write ('o=e')

else if o>e then write ('o')

else write('e')

end.

русские строчные о и е

Answer 2

Вот простая программа на языке Pascal, которая считает, сколько раз введенное слово содержит буквы 'О' и 'Е', а затем выводит, какая из них встречается чаще:

pascalCopy code
program CountOE;
var
  word: string;
  countO, countE: integer;
  i: integer;
begin
  countO := 0;
  countE := 0;

  Write('Введите слово: ');
  Readln(word);

  // Проходим по каждой букве в слове и считаем 'О' и 'Е'
  for i := 1 to Length(word) do
  begin
    if UpCase(word[i]) = 'О' then
      countO := countO + 1
    else if UpCase(word[i]) = 'Е' then
      countE := countE + 1;
  end;

  // Выводим результат
  if countO > countE then
    Writeln('Буква ''О'' встречается чаще.')
  else if countE > countO then
    Writeln('Буква ''Е'' встречается чаще.')
  else
    Writeln('Буквы ''О'' и ''Е'' встречаются одинаково часто.');

  Readln;
end.

Просто скопируйте этот код в среду программирования Pascal, выполните его и введите слово, которое вы хотите анализировать. Программа затем выдаст результат, какая из букв ('О' или 'Е') встречается чаще в данном слове.