Răspunsuri

Cel mai inteligent răspuns!
2014-03-13T17:05:35+02:00
Faci cu un while
cand gasesti o vocala o  inserezi inca o data in text si cresti contorul cu 2 , iar daca este consoana il cresti cu 1

readln(s);
i:=1;
while i<= length(s) do
    begin
    if s[i] in ['a','e','i','o','u'] then begin
                                                 insert(s,s[i],i+1);
                                                  i:=i+2;
                                             end
                                   else i:=i+1;
end;
sa vad care e principiul.
ok imediat
ms mult ca ma ajuti!:*
vazi ca am modificat raspunsul
ms mult!:*