Programa em Pascal: Contagem de Palavras

Vista previa del material en texto

Programa 
Var
Cad: string [60]
i:interger
Pal4: integer
LetraN: integer
Letra: integer
Begin 
I=1
Pal=0
Letra=0
While cad[i] <> “.” Do
While cad[i] = “ ” do
Letra=0
i:= i + 1
while cad[i] <> “ ” and cad[i] <> “.” do
	Letra: = Letra+1
i:= i + 1
		If cad[i]-1 = “n” and Letra > 4 
			Pal:= Pal+1
			i:=i+1
	show: “cantidad de palabras que terminan con n y tienen mas de 4 caracteres” Pal