Hola estoy haciendo un programa que pida una frase al usuario y cuente las palabras que hay.
He hecho esto pero me doy cuento que si dan mas de 1 espacio entre las palabras me las cuenta mal...
¿Alguién sabe que tengo que añadir para capar eso?
Gracias
program palabras;
var
texto:string;
function contarpalabras (cad:string):integer;
var
cont,i:integer;
begin
cont:=0;
for i:=1 to length(cad) do
if (cad[i]<>' ') then
read(cad[i])
else
if (cad[i]=' ') then
begin
cont:=cont+1;
read(cad[i]);
end;
contarpalabras:=cont+1;
end;
begin
writeln('dame la frase');
readln(texto);
writeln('son',contarpalabras(texto),'palabras');
readln;
end.
