Составить алгоритм и написать программу на языке Pascal: Алгоритм вычисления значения функции F(n), где n - натуральное число, задан следующими соотношениями:
F(n) = F(n-1)+ F(n/2), при n>1 и n кратно 2 F(n)=f(n-1) + F(n-2) , при n >1 и n не кратно 2 F(1)=1 Чему равно значение функции F(8)?

О...нашел....действительно ошибка, у меня F при копировании куда-то делось... должно быть F(n-1)+F(n div 2)

Кстати, да! Я заметил отсутствие F, когда проверял)

Ну оно в формуле есть и в программе было....почему пропало - непонятно совершенно... а я сначала копирую программу, потом еще раз её в буфер забираю и запускаю, чтобы убедиться, что все вставилось... а тут так пропало, что оказалось все равно синтаксически верно....(((

Bcghfdbk e;t

Исправил уже

function F(n:integer):integer;begin  if n=1 then F:=1  else    if (n mod 2)=0 then F:=F(n-1)+F(n div 2)    else F:=F(n-1)+F(n-2)end;begin  Writeln('F(8)=',F(8))end.Результат выполнения программы:F(8)=24