Draeden писал(а):Source of the post
Вот вам оптимизированный вариант, можт поможет...Код: Выбрать все
function s ( i: integer ): int64;
var r, rez, t: int64;
begin
if i < 3 then
s := i + 1
else
begin
r := s ( i - 1 );
t = s ( i - 2 );
s := r - 3 + t * ( r mod t );
end;
end;
Почему-то не работает, напиши сами ответы пожалуйста!! осталось 8 минут