#include <bits/stdc++.h>
#pragma GCC optimize("O3")
#pragma GCC optimize("unroll-loops")
#pragma GCC target("avx2")
using namespace std;
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(NULL);
  long long k;
  cin >> k;
  long long pref = 0;
  vector<long long> poww10(17);
  poww10[0] = 1;
  for (int i = 1; i < 17; i++) {
    poww10[i] = poww10[i - 1] * 10;
  }
  for (int len = 1; len <= 15; len++) {
    if (pref + len * (poww10[len] - poww10[len - 1]) >= k) {
      k -= pref;
      long long l = 0, r = poww10[len] - poww10[len - 1];
      while (l + 1 < r) {
        long long mid = (l + r) / 2;
        if (len * mid < k) {
          l = mid;
        } else {
          r = mid;
        }
      }
      k -= len * l;
      cout << to_string(poww10[len - 1] + l)[k - 1] << '\n';
      return 0;
    }
    pref += len * (poww10[len] - poww10[len - 1]);
  }
  return 0;
}
