Преобразовать исходную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).
220
469
Ответы на вопрос:
Var s1,s2: string; n,m: byte; begin readln(s1); for n: =1 to length(s1) do begin s2: =s2+copy(s1,n,1); if copy(s1,n,1)='.' then begin s2: =s2+'..'; end; end; writeln(s2); end.вот так
Популярно: Информатика
-
EkaterinaMironovaa12.05.2021 07:46
-
blackytwhite12.06.2022 19:56
-
Anonim3000117.06.2020 10:14
-
kolafeoktistovp0aj9j16.08.2022 14:12
-
ЗайчонокЛаймик17.09.2022 06:35
-
Obamakrutoi13.11.2020 10:27
-
Sane199910.12.2022 20:39
-
Saweretufio13.11.2020 19:47
-
KlodMone114.04.2022 12:57
-
Светлая2606.03.2020 00:25