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.