ANTICHAT - Показать сообщение отдельно - паскаль, вы программер?

Lexx, вы много знаете о haskell?

Программами на этом языке нужно любоваться) А вы так про реккурсию плохо отзываетесь

rubik-nerubik, надыбай модуль для работы с длиннющими числами и вот те с longint, реккурентное соотношение нашел, функцию написал), работает реактивно и никаких циклов! Паскаль:

Код:

program Good;
uses crt;
var
  k,max:byte;
function fuck(k:byte):longint;
  begin
  if k=1 then fuck:=1
  else fuck:=(max-k+2)*fuck(k-1)+1;
end;
begin
  readln(k);  max:=k;
  writeln(fuck(k));
end.