Определить, какая буква: "о" или "а" входит в него чаще и насколько - Pascal ABC
Формулировка задачи:
2)Определить какая буква о или а входит в него чаще и на сколько
их надо написать множеством
Решение задачи: «Определить, какая буква: "о" или "а" входит в него чаще и насколько»
textual
Листинг программы
var s: string; i, counta, counto: integer; begin counta := 0; counto := 0; write('Введите строку: '); readln(s); for i := 1 to length(s) do begin if s[i] = 'a' then inc(counta); if s[i] = 'o' then inc(counto); end; if counta > counto then writeln('Буква "а" чаще на ', counta - counto) else if counto > counta then writeln('Буква "o" чаще на ', counto - counta) else writeln('Одинаково.'); end.
Объяснение кода листинга программы
- Создается переменная s типа string, которая будет хранить введенную пользователем строку.
- Создаются две переменные counta и counto типа integer, которые будут использоваться для подсчета количества вхождений букв
а
ио
соответственно. - Выводится сообщение
Введите строку:
для ввода строки пользователем. - В цикле for происходит обработка каждого символа введенной строки.
- Если символ равен
а
, то значение переменной counta увеличивается на единицу. - Если символ равен
о
, то значение переменной counto увеличивается на единицу. - После обработки всех символов выводится результат сравнения counta и counto.
- Если counta больше counto, то выводится сообщение
Буква
ачаще на
, и вычисляется разница между counta и counto. - Если counto больше counta, то выводится сообщение
Буква
очаще на
, и вычисляется разница между counto и counta. - Если counta и counto равны, то выводится сообщение
Одинаково
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д