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

Question

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

Comments

Предложение вводится строкой?

---

Да, самостоятельно.

Answer 1

// 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  else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз')
end.

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

Comments

var s:=ReadlnString.ToUpper; Объясните вот эту строчку, пожалуйста.

---

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

---

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

Answer 2

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.

Comments

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

---

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

---

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

---

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

---

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