#include<bits/stdc++.h>
#define K(x,y,z,o) for(int o=x;o>=y;o-=z) 
using namespace std;
string aa[1005];
int a[100005],b[100005];
string jf(string s,int n)
{
	reverse(s.begin(),s.end());
	int t=s.size();
	for(int i=0;i<t;i++)
	{
		a[i]=s[i]-'0';	
	} 
	for(int i=0;i<t;i++)
	{
		b[i]=a[i]*n;
	}
	int jw=0;
	string x="";
	for(int i=0;i<t;i++)
	{
		b[i]+=jw;
		jw=b[i]/10;
		b[i]%=10;
	}
	while(jw!=0)
	{
		t++;
		b[t-1]=jw%10;
		jw/=10;
	}
	while(b[t-1]=='0'&&t!=0) t--;
	for(int i=0;i<t;i++)
	{
		x+=char(b[i]+'0');
	}
	reverse(x.begin(),x.end());
	return x;
}
int main()
{
	int n;
	cin>>n;
	aa[0]="1";
	for(int i=1;i<=n;i++)
	{
		aa[i]=jf(aa[i-1],i);
	}
	string ss=aa[n];
	K(ss.size()-1,0,1,i)
	{
		if(ss[i]!='0')
		{
			cout<<ss[i];
			break;
		}
	}
	return 0;
}