今天做了一道叫《看电影》的水题

呵呵，今天又考了第一，340分，共五道题。这要归功于两种无机物——题目水和数据水。
数据水还用说吗？数组开到1000就可以轻松搞定。

题目描述

       听说NOIP2016大家都考得不错，于是CCF奖励省常中了 K 张变形金刚5的电影票奖励OI队的同学去看电影。可是省常中OI队的同学们共有 N（N  K）人。于是机智的你想到了一个公平公正的方法决定哪K人去看电影。
       N个人排成一圈，按顺时针顺序标号为1 - N，每次随机一个还存活的人的编号，将这个人踢出。继续上述操作，直到剩下K个人。
       但这样显然太无聊了，于是小S又想出一个牛逼的方法。
       N个人排成一圈，按顺时针顺序标号为1 - N，每次随机一个1 - N的编号，假设随机到的编号是X，如果编号为X人还未踢出，则将这个人踢出，否则看编号为X % N + 1（即顺时针顺序下一个编号）的人是否存活，如果还未踢出则将他踢出，否则继续看编号（X + 1）% N +　１的人，如果已被踢出看顺时针的下一个…………，以此类推，直到踢出一个人为止。重复上述操作，直到剩下K个人。
       已知小S的编号是Id，问按照小S的方法来他有多少的概率可以不被踢出，成功得到看电影的机会。

输入

第一行包括三个正整数，N，K，Id(1<=K<=N<=10^9 ，1<=Id<=N)

输出

一行一个最简分数，表示小S可以看到电影的概率。
（如果概率为1或0，请输出1/1或0/1）

样例输入

2 1 2 

样例输出

1/2

数据范围限制

所有测试数据范围和特点如下

提示

一共两个人，筛选经过1轮，第1轮每个人被踢出的概率都是等概率的，所以答案是1/2。

标程：

var
        n,m,t,x,y:longint;
begin
        assign(input,'movie.in'); reset(input);
        assign(output,'movie.out'); rewrite(output);
        readln(n,m,t);
        if m=0 then begin writeln('0/1'); halt; end;
        x:=n; y:=m; t:=x mod y;
        while t>0 do
        begin
                x:=y; y:=t;
                t:=x mod y;
        end;
        writeln(m div y,'/',n div y);
        close(input); close(output);
end.

这么水的题目用来比赛，是极好的。希望老师每天都能这么脑抽慈悲。

年年有今日，岁岁有今朝。