Problem:
Score : 200 points

Problem Statement

An integer N is a multiple of 9 if and only if the sum of the digits in the decimal representation of N is a multiple of 9.

Determine whether N is a multiple of 9.

Constraints

0 \leq N < 10^{200000}

N is an integer.

Input

Input is given from Standard Input in the following format:

N

Output

If N is a multiple of 9, print Yes; otherwise, print No.

Sample Input 1

123456789

Sample Output 1

Yes

The sum of these digits is 1+2+3+4+5+6+7+8+9=45, which is a multiple of 9, so 123456789 is a multiple of 9.

Sample Input 2

0

Sample Output 2

Yes

Sample Input 3

31415926535897932384626433832795028841971693993751058209749445923078164062862089986280

Sample Output 3

No

Solution in Fortran (GNU Fortran 9.2.1) (judge verdict: Runtime Error)

program answer
  implicit none
  integer(16) :: N, i, a, b
  integer(16), allocatable :: s(:)
  read(*,*) N
  if(N==0) then
     write(*,*) 'Yes'
     stop
  end if
  
  do i = 1, 200000
     if(10**(i-1)<=N.and.N<10**i) then
        a=i
        allocate(s(a))
        exit
     end if
  end do

  do i = 1, a
     s(a-i+1)=int(N/10**(a-i))
     N=N-10**(a-i)*int(N/10**(a-i))
  end do

  if(mod(sum(s),9)==0) then
     write(*,*) 'Yes'
  else
     write(*,*) 'No'
  end if
  deallocate(s)
  stop
 end program answer