fork download
  1. procedure main()
  2. a := read()
  3. s := 0
  4. while a > 0 do {
  5. s *:= 2
  6. s +:= a % 10
  7. a /:= 10
  8. }
  9. write(s)
  10. end
Success #stdin #stdout 0s 4992KB
stdin
0010101000000100111110000100111110100011110110001010110101110101101000111101110111111101111100000000
stdout
1218516676999112054511486997