3) Алгоритм вычисления функции F(n) задан следующими соотношениями:   F(n) = 2 при n = 1
  F(n) = F(n–1) + 5n2, если n > 1

Чему равно значение функции F(39)? 

5). Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = 3 при n ≤ 1
F(n) = F(n–1) + 2·F(n–2) – 5, если n > 1
Чему равно значение функции F(22)?

7). Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = n при n > 15
F(n) = 2·F(n+1) + 5n + 2, если n ≤ 15
Чему равно значение функции F(2)?

​P. S. ЭТО ВСЁ НУЖНО ДЕЛАТЬ В EXCEL

Задание 1.

for i := 19 to 29 do s := s+7;

Цикл от 19 до 29 включительно, то есть он будет выполнять команду       "s := s+7" (то есть увеличивать s на 7) 11 раз (именно 11 целых чисел принадлежат множеству [19;29]). После выполнения цикла s будет равно: s[изначальная] + 7*11 = s[изначальная] + 77.

Нет команды вывода => Ничего не будет выведено.

Задание 2.

for i := 0 to 8 do s := s+4;

Цикл от 0 до 8 включительно, то есть он будет выполнять команду       "s := s+4" (то есть увеличивать s на 4) 9 раз (именно 9 целых чисел принадлежат множеству [0;8]). После выполнения цикла s будет равно: s[изначальная] + 4*9 = s[изначальная] + 77.

Нет команды вывода => Ничего не будет выведено.

Задание 3.

for i := 0 to 8 do s := s+4;

Цикл от 0 до 8 включительно, то есть он будет выполнять команду       "s := s+4" (то есть увеличивать s на 4) 9 раз (именно 9 целых чисел принадлежат множеству [0;8]). После выполнения цикла s будет равно: s[изначальная] + 4*9 = 0 + 4*9 = 77.

Задание 4.

for i := 5 to 15 do write('*');

В цикле s не меняется, после выполнения она будет равна 4.

Задание 5.

4 раза выводим на экран '#', получаем в итоге "".

for i := 1 to 4 do write('#');

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write('Введите размер массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i],' ');  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j],' ');    min:=b[1];  for j:=2 to m do    if (b[j]<min) then min:=b[j];    writeln;  writeln(min);    End.