Рекурсия Опции

[wero4ka1991]

Помогите, пожалуйста, решить задачку с помощью рекурсии. Одноклеточная амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб будет через 3, 6, 9, 12, 24 часа.

[Lapp]

Помогите, пожалуйста, решить задачку с помощью рекурсии. Одноклеточная амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб будет через 3, 6, 9, 12, 24 часа.

Нет проблем.

{ amoeba fission using recursion
  by Lapp, forum.pascal.net.ru
  for wero4ka1991 }

function Fission(t: integer): integer;
begin
  if t>=3 then Fission:= Fission(t-3) + Fission(t-3) else Fission:= 1
end;

var
  time: integer;

begin
  write('time = ');
  readln(time);
  writeln('after ',time,' hours there will be ',Fission(time),' amoebas');
  readln
end.

Собираешься разводить амеб на продажу? Боюсь, через пару дней тебе придется резко активизировать рекламу..

[wero4ka1991]

спасибо) ну как бы, неплохой бизнес должен получиться)