Составить программу, которая определяет имеется ли в данном слове, часть, равная другому...

Question

Составить программу, которая определяет имеется ли в данном слове, часть, равная другому заданному слову. Например: слово 'код' входит в слово 'крокодил', но не входит в слово 'овод'. Оба слова должны запрашиваться с клавиатуры

Answer 1

Program test;
var s,s1:string;z:boolean;
begin
readln(s);
readln(s1);
z:=s.Contains(s1);
if z = true then writeln('В слове "',s,'" содержиться слово "',s1,'".')
else writeln('В слове "',s,'" не содержиться слово ',s1,'".');
end.

---

Comments

на слове contains выдает ошибку

---

PascalABC ?

---

да

---

перепиши код у меня все работает

---

ты писал z:=s.Contains(s1);(перед Contains стоит S.(точка тоже стоит))

---

z:=s.contains(s1)

---

я так и пмсал

---

ты точку с запятой поставил ? после функции и напиши с большой буквы C!