Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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
Нет