funcao f(int x): int
	se (rand(0,1000) < 500):
		retorn x!
	senao:
		retorne x^2

s <- 0.0
anterior <- -1.0
i <- 0

// Começamos do 1 (calculamos i <- i + 1 antes de somar em s):
enquanto ((s - anterior) > 0.0000000001):
	anterior = s
	i <- i + 1
	s <- s + 1.0/f(i)
	
mostre s