Ответы на вопрос:
Var a: string; b: char; i, k: integer; begin readln(a); readln(b); for i : = 1 to length(a) do if a[i] = b then k : = k + 1; writeln(k); end.
Популярно: Информатика
-
JlU40K23.03.2020 19:37
-
MrLeysanHD05.10.2021 01:53
-
BlackZhopa07.01.2020 05:59
-
PolinaCartonova27.12.2022 15:49
-
nikitaursu1121.04.2023 17:36
-
Yulia2708201728.06.2023 02:22
-
ян603.06.2023 22:01
-
pudova20001katya10.02.2020 03:12
-
Артур300917.03.2022 05:20
-
Aituar200716.01.2022 20:16