38

Помогите решить задачу в PascalЗадано слово произвольной длины. Определить, сколько…

03 февраля 2023

Помогите решить задачу в PascalЗадано слово произвольной длины. Определить, сколько раз в нем встречается буква «и»

категория: информатика

94

var s: string; x, i: integer; begin write ('Введите строку: '); read (s); for i: =1 to length (s) do if s[i]='и' then inc (x); writeln ('Кол-во букв «и": ', x); end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...