Problem

5 /8


Cerca in una stringa

Theory Click to read/hide

Per cercare all'interno di una stringa in Pascal, usa il metodo pos().
Ha restituito l'indice della prima occorrenza della sottostringa nella stringa:
pos(originalString, smallString) - cerca in originalString smallString

Quando la sottostringa non viene trovata, il metodo restituisce 0:

benvenuto := 'Ciao mondo! Addio mondo!';
index := pos(benvenuto, 'lavoro');
writeln(indice); // 7

index := pos(benvenuto, 'sole');
writeln(indice); // 0

Nota: questi metodi non cercano il numero di occorrenze, ma determinano solo se esiste o meno tale sottostringa nella stringa .

Problem

Data una stringa in cui la lettera h ricorre almeno due volte. Rimuovi la prima e l'ultima occorrenza della lettera h da questa stringa, così come tutti i caratteri tra di esse.

Input

È stata inserita una stringa.

Uscita

Visualizza la risposta al problema.

Esempi

# Input Uscita
1 Nel buco nel terreno viveva uno hobbit In tobbit