** паскале Даны две строки. Определите, является ли первая строка подстрокой второй...

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.

Comments

Работает и выводит всё без проблем.Можете проверить зайдя в Паскаль и введя данный код в программу.

---

informatics не принимает

---

Не знаю в чём проблема,но программа работает.

---

Проходить 8 из 13 тестов

---

А мою прогу не проверяли?..

---

А где разница ? Единственное Вы написали без Writeln,а так программы одинаковые.

---

Если программа проверки автоматическая, она может принимать любой WriteLn за выходные данные

---

И соответственно не принимать "правильное" решение

---

Я это знаю,я про то,что всё остальное у нас с Вами одинаково.

---

Тут вообще мало что можно было бы изменить. В условии вместо "<>" написать "=", и поменять ветки местами