Ответы на вопрос:
Var t: string; k: integer; s,c: char; begin writeln('введите строку'); readln(t); writeln('введите буквы s и c'); readln(c); while not(pos(s,t)=0) do begin k: =pos(s,t); t[k]: =c; end; writeln('изменённая строка - ',t); end.
Популярно: Информатика
-
gggggggx02.03.2021 10:36
-
MadMax2227728.02.2022 17:19
-
DanyaHD25.07.2021 23:11
-
PROматематик15.03.2023 17:58
-
sashaStreet102.07.2022 11:02
-
fghjdgfdjhg26.08.2022 11:50
-
alenazakhar2000al28.08.2021 17:41
-
tach1120.10.2022 11:36
-
хочуха0426.04.2023 23:18
-
azhiltsova15ozb14216.01.2020 11:58