Обработка строковых данных в языке программирования Pascal

@Pepsikan1 · Регистрация: 11.03.2014

Студворк — интернет-сервис помощи студентам

Программа должна предложить ввести строку и подстроку, и вывести номер символа для второго вхождения подстроки в строку (например, для строки 'мамамаша' и подстроки 'ма' ответ: 3).

@Cyborg Drone · 11.03.2014, 15:09

Pascal

var s, p: string;
begin
  writeln('Введите строку:');
  readln(s);
  writeln('Введите подстроку:');
  readln(p);
  if pos(p, s) = 0
    then writeln('Подстрока не найдена.')
    else begin
      delete(s, pos(p, s), length(p));
      if pos(p, s) = 0
        then writeln('Нет второго вхождения подстроки в строку.')
        else writeln('Второе вхождения подстроки в строку начинается с символа №', pos(p, s) + length(p));
    end;
  readln
end.

@Pepsikan1 0 / 0 / 0 Регистрация: 11.03.2014 Сообщений: 9
		1
	Обработка строковых данных в языке программирования Pascal 11.03.2014, 13:32. Показов 1378. Ответов 1 Метки нет (Все метки) Программа должна предложить ввести строку и подстроку, и вывести номер символа для второго вхождения подстроки в строку (например, для строки 'мамамаша' и подстроки 'ма' ответ: 3). 0

Опции темы

Обработка строковых данных в языке программирования Pascal

Решение