Ответы на вопрос:
Var s: string; i,l: integer; begin write('введите строку: '); readln(s); i: =1; l: =length(s); while (i< =l)and(s[i]< > ': ') do i: =i+1; for i: = i+1 to l do s[i]: =' '; write(s) end.
Популярно: Информатика
-
irina2000barano20.08.2021 04:45
-
Caxapok2405.07.2022 22:18
-
Kiosshi24.07.2021 00:23
-
малая55516.08.2020 23:01
-
Kstg27.03.2021 16:07
-
AnastasiaP65430.08.2021 08:26
-
nano8208.03.2021 16:32
-
aisha83424.06.2023 02:36
-
irinkaokhotina27.11.2020 15:26
-
vinnnner08.02.2020 13:52