Задача Особи Зета, прогноз по количеству новых особей на планете Опции

[BETTI]

Особи Зета. На планете Зета обнаружены особи, которые размножаются по следующей схеме: каждая особь дважды создает себе подобную особь – одну в течение первой недели и еще одну в течение второй недели.
Требуется сделать прогноз по количеству новых особей на планете через некоторое время.

Формат ввода:
К ─ первоначальное количество особей (1 ≤ К ≤ 9)
М ─ количество недель, через которое нужно сделать прогноз, 1 ≤ М ≤ 1000
Формат вывода:
N ─ количество новых особей через M недель.

Пример:

Код

Ввод                 Вывод
2                6
3

Помогите, пожалуйста, решить!!!!!!!!!!!!!!!!!!!!!!!!!!

Сообщение отредактировано: klem4 - 22.05.2008 17:10

[klem4]

Вот, потестируй:

function F(n: integer): Extended;
var
  a, b, c, i: Extended;
begin
  if n < 3 then F := n else begin
    a := 2;
    b := 3;
    i := 3;
    while i < n do begin
      c := a;
      a := b;
      b := b + c;
      i := i + 1;
    end;
    F := b;
  end;
end;

var
  weeks, alive, one_create, total_created, i: integer;

begin
  alive := 2; // k
  weeks := 3; // m 


  one_create := 0;
  for i := 1 to weeks - 1 do
    one_create := one_create + trunc(F(i));

  total_created := alive * one_create;

  writeln(total_created);
end.