Ответы на вопрос:
Var s: string; i, k: integer; begin k : = 0; readln(s); for i : = 1 to length(s) do if (s[i] = ': ')then begin s[i] : = '; '; inc(k); end; writeln(s); writeln(k); end.
Популярно: Информатика
-
kura216521.06.2020 20:16
-
A778YE21rus05.02.2023 10:52
-
BelkaNext23.03.2020 13:34
-
STALKER14716.01.2023 19:13
-
LugovoyDanila23.07.2020 09:08
-
2003stanislav05.03.2020 03:30
-
sonya40104.10.2021 17:42
-
122599baikal01.08.2022 19:47
-
емдетей16.03.2023 11:08
-
Магриф25.06.2021 08:46