Ответы на вопрос:
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.
Популярно: Информатика
-
ladyalinaELIZ03.10.2021 02:43
-
lox5429.03.2020 00:40
-
valenok18XD19.03.2023 13:16
-
Кирюха3333320.12.2022 21:50
-
dashkurko1das05.02.2021 14:32
-
adadurovf11.05.2020 21:22
-
korekhova1986super27.03.2021 12:00
-
obizyana8806.10.2021 00:27
-
Кричащийёж23.11.2021 11:23
-
СашаЩербина12.03.2022 11:24