👤

De la tastatură se citește un caracter (literă). Elaborați un program care va afișa textul E VOCALA, dacă caracterul introdus este vocală. ((IN PASCAL))​

Răspuns :

program p1;

var​ caracter: char;

begin

read(caracter);

if (caracter = 'a') or (caracter = 'e') or (caracter = 'i') or (caracter = 'o') or (caracter = 'u') then

write('E VOCALA');

end.