Anonymous user
Munchausen numbers: Difference between revisions
→{{header|vbscript}}
Line 724:
dim str: str = Cstr(num) 'input num as a string
dim sum: sum = 0 'running sum of n^n
dim i
dim n
for i = 1 to len(str)
|