Rem Find the sum of the digits in the number 100! (Project Euler 20)

p=160

graphsize 1200,5

Dim Prod(p+1)

Prod[0]=1

for b = 1 to 100

for t = 0 to p-1

Prod[t]=Prod[t]*b

next t

Rem Carying

for x = 0 to p-2

While Prod[x]>9

Prod[x]=Prod[x]-10

Prod[x+1]=Prod[x+1]+1

end While

next x

Rem Printing

Print b+"! = ";

for x = 0 to p

Print Prod[p-x];

next x

print

next b

sum=0

for x = 0 to p-1

sum = sum + Prod[x]

next x

print sum

## Wednesday, December 15, 2010

Subscribe to:
Post Comments (Atom)

## No comments:

## Post a Comment