Crear cuenta
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.