F90: Ola com contagem de letras e remoção de espaços

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	CHARACTER(LEN=25) :: Nome, Sobrenome
	CHARACTER(LEN=50) :: NomeCompleto
	WRITE (*,*) "Digite seu nome"
	READ (*,*) Nome
	WRITE (*,*) "Digite seu sobrenome"
	READ (*,*) Sobrenome
	NomeCompleto = TRIM(NOME) // " " // TRIM(Sobrenome)
	WRITE (*,*) "Ola ",NomeCompleto
	WRITE (*,*) "Seu nome tem ",LEN(TRIM(Nome))," letra(s) a primeira é ",Nome(1:1)
	WRITE (*,*) "Seu sobrenome tem ",LEN(TRIM(Sobrenome))," letra(s) as duas primeiras são ",Sobrenome(1:2)
END PROGRAM aula