C++ :

#include <cstdlib>
#include <cstdio>
using namespace std;
int cs(int);
int main()
{
	int n;
	scanf("%d",&n);
	int k;
	bool even=false;
	int sum=0;
	for(int i=1;i<=n;i++)
	{
		sum+=i;
		if(sum>=n)
		{
			k=i;
			if(i%2==0)
			{
				even=true;
				n=sum-n;
			}
			else
			{
				n=n-cs(i-1)-1;
			}
			break;
		}
	}
	int a,b;
	if(even)
	{
		a=k-n;
		b=k+1-a;
	}
	else
	{
		a=k-n;
		b=k+1-a;
	}
	printf("%d/%d",a,b);
	//system("pause");
	return 0;
}
int cs(int a)
{
	if(a==1)
	    return 1;
	else
	    return a+cs(a-1);
}

Pascal :

var n,i,j:longint;
  begin
   readln(n);
   j:=n;i:=1;
   while j>i do
    begin
     j:=j-i;
     inc(i);
    end;
   dec(i);
   if i mod 2=0 then write(i-j+2,'/',j)
     else write(j,'/',i-j+2);
  end.