Постройте графичискую модель собственой успеваймости по двум различным предметам самы любимы и нелюбимый - id603450820200827 от Шаригул 27.08.2020 02:32

Question

Информатика: Постройте графичискую модель собственой успеваймости по двум различным предметам самы любимы и нелюбимый спрогнозируйте по этой модели свой дальнейший прогресс обучения данным предмета

Шаригул · Accepted Answer

// 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.

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

MOGZ ответил