[ Foro de Pascal ]

Qué debo arreglar para que funcione?

10-Dec-2019 01:08
Diego Fernndez Romero
1 Respuestas

uses
 System.SysUtils;
const
vocales:set of char=['A','E','I','O','U'];
var
i:integer;
cad:string;
begin
writeln('Ingrese una cadena: ');
readln(cad);
for i := 1 to length(cad) do
begin
 if UpperCase(cad[i])in vocales then
  begin
  cad[i]:=' ';
  end;
end;
writeln(cad);
readln;
end.


10-Dec-2019 01:37
Nacho Cabanes (+64)

Da más detalles. Qué debería hacer y qué no funciona? Qué Compilador usas y para qué sistema operativo?






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)