indicar el numero de letras de una frase
Publicado por Maick (41 intervenciones) el 23/05/2017 18:54:01
como puedo realizar un programa en pascal que me pida una frace y me muestre en pantalla con cuantas letras se escribe.
Valora esta pregunta


0
Program ContarLetras;
Uses sysutils;
Var i, numLetras: Integer; frase, mostrar: String;
Begin
frase := 'Hola soy la frase';
numLetras := 0;
for i:= 1 to length(frase) do
begin
if (frase[i] <> ' ') then
Inc(numLetras);
end;
mostrar:=concat('La frase "', frase, '" ', ' tiene ', IntToStr(numLetras), ' letras');
writeln(mostrar);
End.
Program ContarLetras;
Uses sysutils;
Var i, numLetras: Integer; frase, mostrar: String;
Begin
Write('Ingrese una Frase') ;Readln(frase);
numLetras := 0;
for i:= 1 to length(frase) do
begin
if (frase[i] <> ' ') then
Inc(numLetras);
end;
mostrar:=concat('La frase "', frase, '" ', ' tiene ', IntToStr(numLetras), ' letras');
writeln(mostrar);
Readln;
End.