ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ Задачка ПО ПАСКАЛЮ!Составьте программу, которая дозволяет

ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ!Составьте программку, которая дозволяет поменять в строке s слово t1 на слово t2. Строчку s и слова t1 и t2 введите с клавиатуры.
Пример ввода:
На небе появилась туча.
облако
луна
Пример вывода:
На небе появилась луна.

Задать свой вопрос
1 ответ
Var
  s, t1, t2, st: string;
  i: integer;
begin
  readln(s);
  readln(t1);
  readln(t2);
  if pos(t1, s) lt;gt; 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт