Интересная задачка (Олимпиадная)

[ОДИНОЧЕСТВО В СЕТИ]

вот вам решение в лоб!
правда не по алгоритму Lebron-a-а по моему собственному!
проверки какие нужны сами допишите!

const inp='input.txt';
       outp='output.txt';
var i,n,d,a,b:integer;
    f:text;
function nod(x,y:integer):integer;
var r:integer;
begin repeat
r:=x mod y; x:=y; y:=r;
until y=0; nod:=x;end;
begin
  assign(f,inp);
  reset(f);
  read(f,a);
  read(f,b);
  close(f);
  n:=1;
  d:=a;
  for i:=a+1 to b  do begin
  n:=(n*i)+d;
  d:=d*i;  end;
  while nod(n,d)<>1 do begin
    i:=nod(n,d);
   n:=n div i;
   d:=d div i;
  end;
  assign(f,outp);
  rewrite(f);
  Writeln(f,n,'/',d);
  close(f)
end.

[LeBron]

Я написал алгоритм, который, как мне показалось, удобней всего для понимания новичку. Естественно, можно попроще в плане кода, но мне показалось, что легче работать с дробями с одинаковыми знаменателями, и удобней, и понятней, что делать дальше. А к одинаковым знаменателям удобней всего сразу дойти, что бы не забыть и не путаться потом. Для начала находим 10!, потом для каждого числа числитель дроби будет равным 10!/n, а знаменатель 10!. Вот и вся математика. Удобство так же в том, что начальная часть строго одинаковая не зависимо от входных данных, тоесть меньше кода привязано к инпуту.
BenZeR, в олимпиадном программировании задачи "с учебы" не особо и важны, если не заниматься программированием самостоятельно, то достичь результата выше регионального диплома "за 3(2) место", который дают "тем, кто ничего не знает и не умеет, но имеет скрытый талант" возможно только в случае большо везения. Если не секрет, какие результаты? Есть с чем Вас поздравить?