Анимация мен кескинин кандай?​

Рифма какой то песни что ли?

Чтобы заработал этот код надо добавить первой строкой:
function G(n:integer):integer;forward;
Так как в функции F присутствует вызов функции G, которая описана далее в программе.


function G(n: integer): integer; forward;
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;

begin
  writeln(F(7));
end.

Ответ: 13

2000 Кбайт = 2000 * 1024 = 2048000 Байт
2048000 Байт = 2048000 * 8 = 16384000 бит
16384000 / 512000 = 32
Ответ: 32 секунды