Ответы на вопрос:
Var p,s1,s2: string; l,i: integer; begin writeln('введите предложение: '); readln(p); write('s1 = '); readln(s1); write('s2 = '); readln(s2); l: =length(s1); i: =pos(s1,p); while i< > 0 do begin delete(p,i,l); insert(s2,p,i); i: =pos(s1,p); end; writeln(p); end. пример: введите предложение: купили в магазине резиновую зину, резиновую зину в корзинке принесли. s1 = зину s2 = зою купили в магазине резиновую зою, резиновую зою в корзинке принесли.
Популярно: Информатика
-
Maowsk16.09.2022 06:49
-
lananana200627.03.2021 06:23
-
BlazeBTM13.01.2021 23:07
-
ПрофиЗнания07.01.2021 01:08
-
Надя868605.03.2021 10:22
-
sok271008.09.2022 08:35
-
123123456456124.05.2023 06:44
-
максик8411.12.2021 06:24
-
Настя1803110.02.2022 10:27
-
borisrrvdow9kk714.03.2021 10:21