Question

Sa se stearga prima si ultima vocala dintr-un sir de caractere.

Answer 1

Var s:string; I,p,p2:integer; Begin Readln(s); For i:=1 to length(s) do If (s[i]=´a´) or (s[i]=´A´) or (continui sa pui condiitiile pt toate vocalele ) P:=i; For i:=length(s) down to 1 do Aceeasi cobditie cu if P2:=i; Delete(s,p,1); Delete(s,p2,1); Writeln(s); End.