Question

Помогите пожалуйста . По информатике Дана строка s и s0. Проверить , содержится ли строка s0 в строке s . Если да , то вывести "ДА",если не содержится , то вывести "НЕТ" String5 . Pascal

Answer 1

Var s,s0:string;
begin
  write('введите строку: ');
  readln(s);
  write('введите подстроку: ');
  readln(s0);
  if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.

Тест №1
введите строку: qwerty
введите подстроку: wer
Да

Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет

Answer 2

Для проверки, содержится ли строка `s0` в строке `s`, вы можете использовать функцию `Pos` в языке Pascal. Функция `Pos` возвращает позицию первого вхождения подстроки в строку или 0, если подстрока не найдена.

Вот пример кода, который решает вашу задачу:

program CheckSubstring;
var
  s, s0: string;
  pos: integer;
begin
  s := 'String5';
  s0 := 'ing';

pos := Pos(s0, s);

if pos > 0 then
    writeln('ДА')
  else
    writeln('НЕТ');
end.

В этом примере мы ищем подстроку `'ing'` в строке `'String5'`. Если подстрока найдена, то выводится `'ДА'`, иначе выводится `'НЕТ'`.

Примечание: В приведенном коде используется язык Pascal. Убедитесь, что ваша среда разработки поддерживает этот язык и что вы правильно настроили свою среду для компиляции и запуска программ на Pascal.