25 lines
400 B
Text
25 lines
400 B
Text
EnableExplicit
|
|
Declare main()
|
|
|
|
If OpenConsole("Munchausen_numbers")
|
|
main() : Input() : End
|
|
EndIf
|
|
|
|
Procedure main()
|
|
Define i.i,
|
|
sum.i,
|
|
number.i,
|
|
digit.i
|
|
For i = 1 To 5000
|
|
sum = 0
|
|
number = i
|
|
While number > 0
|
|
digit = number % 10
|
|
sum + Pow(digit, digit)
|
|
number / 10
|
|
Wend
|
|
If sum = i
|
|
PrintN(Str(i))
|
|
EndIf
|
|
Next
|
|
EndProcedure
|