Розв’язок задачі з Абрамова №112

Всі умови | Умова: Дано цілі числа n, k, (n ≥ k ≥ 0). Обчислити... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №112)

program pr112;
var
  n, k, i, t, f : integer;
  result : real;
begin
  readln(n);
  readln(k);
  
  //find factorial
  f := 1;
  i := 1;
  while (i <= k) do
  begin
    f := f * i;
    i := i + 1;
  end;
  
  //find chyselnyk
  t := n - k + 1;
  result := 1;
  for i := n downto t do
	result := result * i;
	
  //find result
  result := result / f;
  writeln(result:5:3);
  readln;
end.