Ответы на вопрос:
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.
Популярно: Информатика
-
drad200517.10.2021 08:10
-
ka01338227.07.2020 08:23
-
everlast11204.03.2023 13:31
-
SmeliyAlan55601.01.2020 08:21
-
Snaga12.06.2020 00:03
-
лиз8719.05.2020 23:49
-
kuzminasasa6427.03.2021 21:01
-
MashaKun24.01.2020 00:18
-
elvinpirimov102.06.2021 11:43
-
Nikita135617.01.2022 12:23