ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ!Составьте программу, которая позволяет заменить в строке s слово t1 на слово t2. Строку s и слова t1 и t2 введите с клавиатуры.
Пример ввода:
На небе появилась туча.
туча
луна
Пример вывода:
На небе появилась луна.
Пример ввода:
На небе появилась туча.
туча
луна
Пример вывода:
На небе появилась луна.
More Questions From This User See All
Answers & Comments
s, t1, t2, st: string;
i: integer;
begin
readln(s);
readln(t1);
readln(t2);
if pos(t1, s) <> 0 then
i := pos(t1, s);
st := copy(s, 1, i - 1);
st := st + t2;
st := st + copy(s, i + length(t1), length(s));
writeln(st);
readln;
end.