Ответы на вопрос:
Var s: string; i: integer; begin read(s); i: =1; while i< =length(s) do begin if s[i]='.' then insert(' ',s,i+1); inc(i); end; writeln(s); end.
Популярно: Информатика
-
DimaGostovsky20.05.2021 17:45
-
kukovofiwi34220.11.2022 17:43
-
мурамурамур16.02.2021 14:06
-
Arina1712200208.03.2023 08:12
-
anastaciarocha05.07.2022 15:18
-
loginov55529.10.2022 02:46
-
Отлицница2318.12.2021 06:35
-
lipaalexandrova12.12.2021 18:34
-
VoinBogov24.03.2023 15:39
-
AnnGo990924.05.2021 18:59