!> This file was processed by `fypp`. !> Today's fortune: "Bad AC", really OK? !> ランダムウォーク猿「'真ん中を見る' で はっぴー.」 program yukicoder_2562 use, intrinsic :: iso_fortran_env !> auto use module implicit none integer(int32) :: t integer(int32) :: i read(input_unit, *) t do i = 1, t call solve() end do contains impure subroutine solve() integer(int32) :: m integer(int32) :: ds(9) integer(int64) :: x integer(int32) :: i, j read(input_unit, *) m read(input_unit, *) ds(:) if (all(ds(:) == 0)) then write(output_unit, '(i0)') m return end if x = 0_int64 do i = 1, size(ds) do j = 1, ds(i) x = x * 10_int64 + int(i, int64) end do end do x = x * 10_int64 ** 9 ! write(error_unit, *) x, mod(x, m) x = x + mod(m - mod(x, int(m, int64)), int(m, int64)) ! write(error_unit, *) x, mod(x, m), x <= 10_int64 ** 18 write(output_unit, '(i0)') x end subroutine solve end program yukicoder_2562