Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Cuenta_Palabras
Language: PASCAL
Code:
program frase;
var
  Cad: string;
  Posicion: integer;
  CuentaWords: integer;
  Vacio: char;
begin
CuentaWords:= 1;
Vacio:= ' ';
  writeln('Introduce la frase');
  Readln(Cad);
  for Posicion := 1 to Length(Cad) do
  begin
      if Cad[Posicion] = Vacio then
      CuentaWords:= CuentaWords + 1;
  end;
  writeln('Tienes ',CuentaWords, ' palabras');
end.               
          
Comments: