Question

Se citește o fraza. Afisati toți diftongii separați prin spațiu precum și numărul acestora.

Answer 1

Daca luam ca un diftong este format din 2 vocale care sint la rind:

var

 vocala:set of char;
 s:string;
 i,n:integer;
 
begin

 read(s);
 
 vocala:=['a','e','i','o','u','A','E','I','O','U'];
 
 for i:=1 to length(s)-1 do
  if(s[i] in vocala) and (s[i+1] in vocala) then
   begin
    n+=1;
    write(s[i],s[i+1],' ');
   end;
  
 writeln; 
 write(n);
 
end.