Problem

5 /8


Suche in einer Zeile

Theory Click to read/hide

In Pascal verwenden Sie die Methode. pos()
Es hat eine Rückstellung des 1. Zeileneingabeindex:
pos(originalString, smallString) - ищет в originalString smallString

Wenn die Unterstruktur nicht gefunden wird, gibt die Methode 0 zurück:

Willkommen:=Hallo Welt! Auf Wiedersehen!
Index := pos(welcome, 'wor');
schriftlichln(index); // 7

Index := pos(welcome, 'sun');
schriftlichln(index); // 0

Achten Sie auf: Die Methoden suchen nicht nach der Anzahl der Ankünfte, sondern sie bestimmen einfach, ob ein Substrat vorhanden ist oder nicht.

Problem

Danas Linie mit dem Briefhmindestens zweimal. Löschen Sie den ersten und letzten Eintrag des Buchstabenshsowie alle Symbole zwischen ihnen.

Eingangsdaten

Es wird eine Leitung eingeführt.

Ausgangsdaten

Beantworte die Aufgabe.

Beispiele

NeinEingangsdatenAusgangsdaten
1Im Loch im Boden lebte ein HobbyIn tobbit