Определить, через сколько часов количество амеб достигнет 50 клеток? - Pascal ABC
Формулировка задачи:
Амеба каждые 3 часа делится на 2 клетки. Через сколько часов количество амеб достигнет 50 клеток?
Решение задачи: «Определить, через сколько часов количество амеб достигнет 50 клеток?»
textual
Листинг программы
t := ln(n) / ln(2);
if frac(t) > 0 then t := t + 1;
writeln('t = ', 3 * trunc(t));