Pascal, строки.
Ввести строку и слово. Удалить слово из строки, если оно в ней содержится.

Программа удаляет первое найденное вхождение слова. Поиск чувствителен к регистру: слова «Дом» и «дом» считаются разными.

Программа на Pascal:

program DeleteWord;
var
  s, w: string;
  p: integer;
begin
  readln(s);
  readln(w);
  p := Pos(w, s);
  if p > 0 then
    Delete(s, p, Length(w));
  writeln(s);
end.

Функция \(\mathrm{Pos(w,s)}\) возвращает позицию, с которой слово \(w\) начинается в строке \(s\). Если слово не найдено, она возвращает \(0\). Процедура \(\mathrm{Delete}\) удаляет из строки нужное число символов.

0 0 Пожаловаться