Question

На паскале даны две строки. определите, является ли первая строка подстрокой второй строки. входные данные на вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита. выходные данные необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае. примеры входные данные abac ababacaba выходные данные yes

Answer 1

Var S,S1:string;
Begin
ReadLn(S);
ReadLn(S1);
if Pos(S,S1) <> 0 then WriteLn('yes')
else WriteLn('no')
End.

Answer 2

Program ABC;

var  s, p: string;
begin
writeln('Введите 1 строку:');
readln(s);
writeln('Введите 2 строку:');
readln(p); 
if (pos(s,p) <> 0) then 
writeln('Yes') 
else 
writeln('No');
end.