Ответы на вопрос:
Var s: string; i: integer; begin write('строка: '); readln(s); i: =1; while i< =length(s) do begin if s[i]='-' then begin s: =copy(s,1,i-1)+' '+s[i]+' '+ copy(s,i+1,length(s)-i+3); i: =i+2; end; i: =i+1; end; writeln('новая строка: ',s); end.
Популярно: Информатика
-
LollyMelor17.05.2021 05:20
-
Nosochekxnncnnc02.08.2022 05:21
-
anisova34225.10.2020 17:34
-
123455567612.09.2022 10:53
-
Мозговина1216.06.2022 22:52
-
мартина14.06.2022 05:58
-
DenchikKing01.04.2020 15:13
-
элог17.01.2022 22:31
-
kirillmajer200708.09.2022 00:54
-
ника276004.01.2020 15:19