Ответы на вопрос:
// pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin var s: =readlnstring('> '); var w1: ='bloomed'; var w2: ='pears'; var w3: ='applesand'; var i: =pos('r',s); writeln('позиция r: ',i); i: =pos(w2,s); s: =s[: i]+w1; s: =w2+s[w1.length+1: ]; writeln(s); i: =pos(w3,s); delete(s,i,w3.length); writeln(s) end. тестовое решение > bloomedapplesandpears позиция r: 20 pearsapplesandbloomed pearsbloomed
Популярно: Информатика
-
тина13616.05.2021 18:46
-
betextinaanast102.02.2022 07:43
-
SanyaLuckYouTube28.02.2021 00:18
-
fainanem05.02.2020 14:20
-
Adalet55525.03.2022 16:28
-
llerochka107.09.2021 20:27
-
Mashoo4rik26.04.2022 04:03
-
kolosochok104.04.2021 01:39
-
Taya20040124.01.2020 18:22
-
rafaelkhasanov05.02.2020 15:44