пукимэн228
06.02.2023 20:48

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mysya4
05.10.2020 22:47
Var S,S1:string;
Begin
ReadLn(S);
ReadLn(S1);
if Pos(S,S1) <> 0 then WriteLn('yes')
else WriteLn('no')
End.
0,0(0 оценок)
Ответ:
relax217
05.10.2020 22:47
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота