На паскале даны две строки. определите, является ли первая строка подстрокой второй строки. входные данные на вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита. выходные данные необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае. примеры входные данные abac ababacaba выходные данные yes
abdualieva130403
2
27.08.2019 13:10
13
Другие вопросы по теме Информатика
тетямотя7
06.07.2019 16:00
там12
23.08.2019 23:40
aliyarahimova27
23.08.2019 23:50
РюЛайон
21.10.2020 09:10
Рубка2006
20.05.2020 23:30
778392
21.05.2020 23:52
p111111197
20.05.2020 23:32
DarkLooord
05.08.2019 14:30
Популярные вопросы
- 1-тапсырма Cұраққа жауап 1.Сен күн сайын қана тұрмыстық қалдық тастайсың?2.Сен...
2 - Найдите 20%от 20,2 с решением...
3 - Составьте и запишите интервью сдругом/подругой/родственником на тему «Что значит...
3 - Ich (anziehen) das Kleid. a) Ich ziehen das Kleid an. b) Ich ziehe das Kleid an....
3 - разобрать по составу: коррень, суффикс, окончанее. слова указаные в фото....
3 - Гоблиннің бейнесі мифтік аңыздарда айтылғаннан бұрмаланған ба...
3 - 1. Вспомните вторую часть стихотворения «У лукоморья дуб зелёный» А.С. Пушкина....
3 - Для чего потребовались пункты по ликвидации неграмотности в 20-30-е годы ХХ столетия?...
3 - В каком случае лучи солнца согревает землю сильнее? А) когда лучи солнца падают...
2 - 543А.Спиши предложения, вставляя пропущенные буквы и расставляя недостающие знаки...
1
Begin
ReadLn(S);
ReadLn(S1);
if Pos(S,S1) <> 0 then WriteLn('yes')
else WriteLn('no')
End.
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.