#include <bits/stdc++.h>
using namespace std;
#define faster ios_base::sync_with_stdio(false); cin.tie(NULL)
#define Bit(mask , i) ((mask >> i) & 1)
#define fi first
#define se second
#define _LOG2(nl) 31 - __builtin_clz(nl)
#define c_bit(nl) __builtin_popcount(nl)
#define ii pair<int , pair<int , int>>
#define lii pair<long long , pair<int , int>>
#define li pair<long long , int>
#define db double
#define onBit(mask , i) (mask | (1 << i))
#define offBit(mask , i) (mask & (~(1 << i)))
long long t;
void inp(){
cin >> t;
}
void solve(){
long long res = 0;
if (t < 1600){
res += t / 1600;
cout << res;
return;
}
res += 99;
t -= 99 * 1600;
if (t <= 100 * 2500){
res += t / 2500;
cout << res;
return;
}
res += 100;
t -= 100 * 2500;
if (t <= 300 * 5000){
res += t / 5000;
cout << res;
return;
}
res += 300;
t -= 300 * 5000;
res += t / 10000;
cout << res;
}
int main(){
if (fopen("cau1.inp" , "r")){
freopen("cau1.inp" , "r" , stdin);
freopen("cau1.out" , "w" , stdout);
}
faster;
inp();
solve();
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgZmFzdGVyIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oZmFsc2UpOyBjaW4udGllKE5VTEwpCiNkZWZpbmUgQml0KG1hc2sgLCBpKSAoKG1hc2sgPj4gaSkgJiAxKQojZGVmaW5lIGZpIGZpcnN0CiNkZWZpbmUgc2Ugc2Vjb25kCiNkZWZpbmUgX0xPRzIobmwpIDMxIC0gX19idWlsdGluX2NseihubCkKI2RlZmluZSBjX2JpdChubCkgX19idWlsdGluX3BvcGNvdW50KG5sKQojZGVmaW5lIGlpIHBhaXI8aW50ICwgcGFpcjxpbnQgLCBpbnQ+PgojZGVmaW5lIGxpaSBwYWlyPGxvbmcgbG9uZyAsIHBhaXI8aW50ICwgaW50Pj4KI2RlZmluZSBsaSBwYWlyPGxvbmcgbG9uZyAsIGludD4KI2RlZmluZSBkYiBkb3VibGUKI2RlZmluZSBvbkJpdChtYXNrICwgaSkgKG1hc2sgfCAoMSA8PCBpKSkKI2RlZmluZSBvZmZCaXQobWFzayAsIGkpIChtYXNrICYgKH4oMSA8PCBpKSkpCgpsb25nIGxvbmcgdDsKCnZvaWQgaW5wKCl7CiAgICBjaW4gPj4gdDsKfQoKdm9pZCBzb2x2ZSgpewogICAgbG9uZyBsb25nIHJlcyA9IDA7CiAgICBpZiAodCA8IDE2MDApewogICAgICAgIHJlcyArPSB0IC8gMTYwMDsKICAgICAgICBjb3V0IDw8IHJlczsKICAgICAgICByZXR1cm47CiAgICB9CiAgICByZXMgKz0gOTk7CiAgICB0IC09IDk5ICogMTYwMDsKICAgIGlmICh0IDw9IDEwMCAqIDI1MDApewogICAgICAgIHJlcyArPSB0IC8gMjUwMDsKICAgICAgICBjb3V0IDw8IHJlczsKICAgICAgICByZXR1cm47CiAgICB9CiAgICByZXMgKz0gMTAwOwogICAgdCAtPSAxMDAgKiAyNTAwOwogICAgaWYgKHQgPD0gMzAwICogNTAwMCl7CiAgICAgICAgcmVzICs9IHQgLyA1MDAwOwogICAgICAgIGNvdXQgPDwgcmVzOwogICAgICAgIHJldHVybjsKICAgIH0KICAgIHJlcyArPSAzMDA7CiAgICB0IC09IDMwMCAqIDUwMDA7CiAgICByZXMgKz0gdCAvIDEwMDAwOwogICAgY291dCA8PCByZXM7Cn0KCmludCBtYWluKCl7CiAgICBpZiAoZm9wZW4oImNhdTEuaW5wIiAsICJyIikpewogICAgICAgIGZyZW9wZW4oImNhdTEuaW5wIiAsICJyIiAsIHN0ZGluKTsKICAgICAgICBmcmVvcGVuKCJjYXUxLm91dCIgLCAidyIgLCBzdGRvdXQpOwogICAgfQogICAgZmFzdGVyOwogICAgaW5wKCk7CiAgICBzb2x2ZSgpOwogICAgcmV0dXJuIDA7Cn0K