Амёба каждый день делится на две части, профессор Инвалидов каждую среду кол-во амёб уменьшает на одну треть, эксперимент происходит в течении года. Сколько амёб всего стало? Составить программу в PascalABC

Амёба каждый день делится на две части, профессор Инвалидов каждую среду кол-во амёб уменьшает на одну треть, эксперимент происходит в течении года. Сколько амёб всего стало? Составить программу в PascalABC
Гость
Ответ(ы) на вопрос:
Гость
Var s : real; Begin S:= (1*14-1/3)*52; Write(s :5:6); end.  Смешно, конечно, но выходит так. Просто выводишь определённую формулу, вот и все. 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы