Ирина Эланс
Function F(n: integer): integer; begin if n>1 then F:=F(n-1)+G(n-1) else F:=n; end; function G(n: integer): integer; begin if(n>1) then G:=G(n-1)+F(n) else G:=n; end;
Function F(n: integer): integer; begin if n>1 then F:=F(n-1)+G(n-1) else F:=n; end; function G(n: integer): integer; begin if(n>1) then G:=G(n-1)+F(n) else G:=n; end;
Последовательно найдем значения функций от n=1 до искомого n=5 F(1) = 1 G(1) = 1 F(2) = F(1) + G(1) = 1+1 = 2 G(2) = G(1) + F(2) = 1+2 = 3 F(3) = F(2) + G(2) = 2+3 = 5 G(3) = G(2) + F(3) = 3+5 = 8 F(4) = F(3) + G(3) = 5+8 = 13 G(4) = G(3) + F(4) = 8+13 = 21 F(5) = F(4) + G(4) = 13+21 = 34 Ответ: 34
- Function F(n: integer): integer; begin if n>2 then F:=F(n-1)+G(n-2) else F:=1; end; function G(n: integer): integer; begin if(n>2) then G:=G(n-1)+F(n-2) else G:=1; end;
- Function F(n: integer): integer; begin if n>2 then F:=F(n-1)+G(n-2) else F:=2; end; function G(n: integer): integer; begin if n>2 then G:=G(n-1)+F(n-2) else G:=3; end;
- Function F(n: integer): integer; begin if n>2 then F:=F(n-1)+G(n-2) else F:=n+2; end; function G(n: integer): integer; begin if n>2 then G:=G(n-1)+F(n-2) else G:=3-n; end;
- Function F(n: integer): integer; begin if n>2 then F:=F(n-1)+G(n-2) else F:=n; end; function G(n: integer): integer; begin if n>2 then G:=G(n-1)+F(n-2) else G:=2-n; end;
- Function F(n: integer): integer; begin if n>2 then F:=F(n-1)+G(n-2) else F:=n; end; function G(n: integer): integer; begin if n>2 then G:=G(n-1)+F(n-2) else G:=n+1; end;
- Function gz(a: integer):integer; var p:integer; begin if a<1 then begin gz:=1; exit; end; if a mod
- Fx1,x2,x3,x4=x1+34x2+14x3+14x4→min 6x1+x2-x3-4x4≤-4x1+5x2+x3-3x4≥1x1≥0,x2≥0,x3≥0,x4≥0 Ее решение известно: Fmin=F0,0,167,37=38 Составьте для этой задачи двойственную задачу и найдите ее решение,
- EQ \a(lim;x→0) \f(sin(x)·(e2·x-ex);cos(x)-cos(5·x))
- Excel Разработать простейшую экспертную систему по принятию решений относительно типа услуг телекоммуникационной компании, позволяющую консультировать
- F1 = 6,5 кН; F2 = 5,0 кН; М = 2,0 кН·м; q =
- «Foodland» - самая большая сеть бакалейных магазинов в Гонолулу, состоящая из девяти больших магазинов
- Function F(n: integer): integer; begin if n>1 then F:=F(n-1)+G(n-1) else F:=2*n; end; function G(n: integer): integer; begin if n>1 then G:=G(n-1)+F(n) else G:=n-2; end;
- Function F(n: integer): integer; begin if n>1 then F:=F(n-1)+G(n-1) else F:=n+1; end; function G(n: integer): integer; begin if(n>1) then G:=G(n-1)+F(n) else G:=2*n; end;
- Function F(n: integer): integer; begin if n>1 then F:=F(n-1)+G(n-1) else F:=n+1; end; function G(n: integer): integer; begin if(n>1) then G:=G(n-1)+F(n) else G:=n-1; end;