62

С клавиатуры вводят слово и символ

serjj 22 июля 2022

С клавиатуры вводят слово и символ. Составте программу которая: подсчитывает количество вхождений заданногосимвола

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

43

var a: string; b: char; i,sum: integer; beginreadln (a,b); for i: =1 to length (a) do beginif pos (b,a) <>0 then beginsum: =sum+1; delete (a,1,pos (b,a); end; end; writeln (sum); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

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