[artem_host]

все это обязательно нужно выполнить с помощью цикла repeat....until!
одноклеточная амеба каждые 3 часа делится на 2 клетки.определить,сколько амеб будет через заданное число(целое)
кол-во часов(3,6,....24)это не курсач
для общего развития для понятия repeat until

[PhoeniX]

Нафиг тут вообще циклы, если это решается одной формулой...?

Ну, а если уж стоит задача сделать циклом, то давай свой код, и что у тебя с ним не получается.

[angvelem]

Код:

var
  Clock : Integer;
  amoeba : Integer;
begin
  Ckock := 3; // Hour;
  amoeba := 1;
  repeat
    amoeba := amoeba * 2;
    dec(Clock);
  until Clock = 0;
end;

Это?

[PhoeniX]

Код:

var
  Clock : Integer;
  amoeba : Integer;
begin
  Clock := 3; // Hour;
  amoeba := 1;
  repeat
    amoeba := amoeba * 2;
    dec(Clock,3);
  until Clock <= 0;
end;

[angvelem]

Тяжело представить при каких условиях Clock станет отрицательным, но всё бывает.