107875178
Пример решения на языке PascalABC.NET:
function F (n:real):real;
begin
if n <=5 then result:=n*2 else
if (n>5) and (Frac(n/2) = 0) then result:=(F(n-2)+3*F(n/2)) else
if (n>5) and (Frac(n/2) <> 0) then result:=(F(n-1)+F(n-2)+F(n-3));
end;
begin
var D:=F(99)+F(100);
writeln('Результат вычислений: ',D);
end.
