Дана программа вычисления f(n) по заданному n, функции f(0) = 0, f(1) = 1, f(2n) = f(n), f(2n+1) = f(n) + f(n+1). Задание: построить график функции f(n). program function_26; Uses crt; Var n:integer; {переменная значения функции} a:integer; {вывод результата} Function f (n:integer): integer; begin If n=1 then f:=1 else begin if odd (n) then {проверка на нечетность} begin n:=n div 2; f:=f(n)+f(n+1) end else begin n:=n div 2; f:=f(n) end; end; end; begin {начало основной программы} textbackground(14); clrscr; textcolor(1); writeln (' '); write ('Введите значение аргумента -> '); readln (n); if n=0 then a:=0 else a:=f(n); textcolor(red); writeln ('Результат: ', a); readln; end.