Question

Помогите, пожалуйста, составить программу, определяющую, какая из букв "Е" или "О" встречается чаще в предложении. Если можно, то с объяснением. Даю 25 баллов.

Answer 1

var i,ke,ko:integer;
s:string;
begin
ko:=0;
ke:=0;
readln(s);
for i:=1 to length(s) do begin
if (s[i]='Е') or (s[i]='е') then ke:=ke+1;
if (s[i]='О') or (s[i]='о') then ko:=ko+1;
end;
if ko>ke then writeln('К встречается чаще') else writeln('О встречается чаще');
end.

Answer 2

Откуда взялось ko и ke? Объясните, пожалуйста.

Answer 3

ko-переменная счетчик букв о

Answer 4

ке- счетчик букв е

Answer 5

Хорошо, спасибо))

Answer 6

Пожалуйста, обращайтесь

Answer 7

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString.ToUpper; // к верхнему регистру
  var (kO,kE):=(0,0); // счетчики
  for var i:=1 to s.Length do
    case s[i] of
    'О':ko+=1;
    'Е':kE+=1
    end;
  if kO>kE then Writeln('Буква "О" встречается чаще')
  else if kO<kE then Writeln('Буква "Е" встречается чаще')
  else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз')
end.

Пример
Если бы Ольга захотела, она бы училась лучше Елены
Буква "Е" встречается чаще

Answer 8

Прочитать строку, перекодировать буквы на верхний регистр и результат поместить в переменную s, присвоив ей тип string.

Answer 9

ппц прям С# какой-то

Answer 10

Это С# c добавками вкусняшек из Питона и Хаскеля, но в синтаксисе Паскаля

Answer 11

В итоге я совместила две ваши программы и всё получилось)) Спасибо большое!

Answer 12

Оно и без совмещения получается. Зачем ужа с ежом скрещивать?