63

Помогите составить программу, проверяющею входит ли заданный символ в заданную…

01 марта 2023

Помогите составить программу, проверяющею входит ли заданный символ в заданную строку, если входит, то вывести сколькораз

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

40

var s: string; i: integer; c: char; beginreadln (s); readln (c); while pos (c,s) <>0 do begininc (i); delete (s,pos (c,s) ,1); end; writeln (i); end.

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

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