Problem

5 /8


文字列で検索する

Theory Click to read/hide

Pascal で文字列内を検索するには、pos() メソッドを使用します。
文字列内で最初に出現する部分文字列のインデックスを返します。
pos(originalString, smallString) - originalString smallString

を検索します。

部分文字列が見つからない場合、メソッドは 0 を返します。

<プレ> ようこそ := 'こんにちは、世界!さよなら世界!'; インデックス := pos(ようこそ、「ワー」); writeln(インデックス); // 7 インデックス := pos(ようこそ、「太陽」); writeln(インデックス); // 0
注意: これらのメソッドは出現回数を検索するのではなく、文字列内にそのような部分文字列が存在するかどうかだけを判断します。 。

Problem

文字 h が少なくとも 2 回出現する文字列を考えます。文字  h の最初と最後の出現箇所、およびその間のすべての文字をこの文字列から削除します。

入力

文字列が入力されています。

出力

問題の答えを表示します。

<頭> <本体>
# 入力 出力
1 地面の穴にはホビットが住んでいた トゥビット