| Millosa a întrebat:

Ajutati-ma sa scriu un program Pascal care va afisa vocalele dintr-un sir de caractere.laughing

1 răspuns:
| akadeaa a răspuns:

Var s:string; i:byte;
Begin
write('cuvantul:');
readln(s);
For i:=1 to length(s) do
If s[i] in ['a','e','i','o','u'] then
write(s[i]);
readln;
End.