[artem_host]

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

[PhoeniX]

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

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

[angvelem]

Код:

1 2 3 4 5 6 7 8 9 10 11

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

Это?

[PhoeniX]

Код:

1 2 3 4 5 6 7 8 9 10 11

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

[angvelem]

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