Одноклеточная амеба каждые 3 часа делится на 2 клетки. Сколько амеб будет через 15 часов? Программа паскаль.

program zz1;

var a, n:integer; / / задаем переменные целого типа

begin

a:=1; / / задаем начальное количество амеб

n:=3;

while n < = 15 do / / организуем цикл, пока не пройдет 15 часов

begin

a: = a * 2; / / высчитываем количество амеб через следующие три часа

n:=n + 3; / / увеличиваем время на три часа

end;

write (' количество амеб через 15 часов будет = ', a); / / выводим ответ

end.