Ответы
Ответ дал:
0
//Pascal
var Str, SubStr: string;
begin
Str := 'HelloTestWorld'; //Строка
SubStr := 'Test'; //Подстрока
if Pos(SubStr, Str) = 0 then
writeln('Не входит.')
else
writeln('Входит. Позиция = ', Pos(SubStr, Str));
end.
var Str, SubStr: string;
begin
Str := 'HelloTestWorld'; //Строка
SubStr := 'Test'; //Подстрока
if Pos(SubStr, Str) = 0 then
writeln('Не входит.')
else
writeln('Входит. Позиция = ', Pos(SubStr, Str));
end.
Ответ дал:
0
На питоне:
s1 = input("Bвeдитe 1 строку:n")
s2= input("Bвeдитe 2 строку:n")
if s1.find(s2)>=0: print(s2+" входит в "+s1)
else: print(s2+" не входит в "+s1)
Пример 1:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
cde
cde входит в abcdefg
Пример 2:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
ac
ac не входит в abcdefg
s1 = input("Bвeдитe 1 строку:n")
s2= input("Bвeдитe 2 строку:n")
if s1.find(s2)>=0: print(s2+" входит в "+s1)
else: print(s2+" не входит в "+s1)
Пример 1:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
cde
cde входит в abcdefg
Пример 2:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
ac
ac не входит в abcdefg
Ответ дал:
0
нужно ответь на вопрос не форме задачи
Ответ дал:
0
теоретически ответь с помощью теории
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад