import bisect
import copy
import decimal
import fractions
import functools
import heapq
import itertools
import math
import random
import sys
from collections import Counter,deque,defaultdict
from functools import lru_cache,reduce
from heapq import heappush,heappop,heapify,heappushpop,_heappop_max,_heapify_max
def _heappush_max(heap,item):
    heap.append(item)
    heapq._siftdown_max(heap, 0, len(heap)-1)
def _heappushpop_max(heap, item):
    if heap and item < heap[0]:
        item, heap[0] = heap[0], item
        heapq._siftup_max(heap, 0)
    return item
from math import gcd as GCD
read=sys.stdin.read
readline=sys.stdin.readline
readlines=sys.stdin.readlines

N=int(readline())
mod=998244353
dp=[0]*N
dp[0]=1
for n in range(N):
    prev=dp
    dp=[0]*N
    for s in range(N):
        for a in range(1,N+5):
            a-=len(str(a))
            if s+a<N:
                dp[s+a]+=prev[s]
                dp[s+a]%=mod
ans=dp[N-1]
print(ans)