string s
int p, c, i
bool nova_palavra

leia s
nova_palavra <- V
p <- 0
c <- 0

para i em (0..tamanho(s)):
    se (s[i] == ' ' ou s[i] == ',' ou
        s[i] == '.'):
        nova_palavra <- V
    senao:
        c <- c + 1 # mais um caractere nao-branco
        se (nova_palavra):
            p <- p + 1 # mais uma palavra
            nova_palavra <- F

mostre c/p