одноклеточная амёба каждые три часа делится на 2 клетки. Определить сколько клеток будет через 3,6 часов.

[mister.gun]

Одноклеточная амёба каждые три часа делится на 2 клетки. Определить сколько клеток будет через 3,6,9, ... 24 часа, если первоначально было одна амёба

[profi]

Давай наработки.

[mister.gun]

Это про амёбу, только она почему то не работает, пишет 'всего амёб 0'

uses crt; 
var i,a,n:integer; 
begin 
a:=1; 
writeln('введите кол-во часов'); 
read(n); 
n:=n div 3; 
for i:=1 to n do 
a:=a+1; 
writeln('всего амёб ',a:2); 
readln;
readkey;
end.

а с остальными у меня проблема

[profi]

Подправил:

uses crt; 
var i,a,n:integer;
begin
write('введите кол-во часов ');
readln(n);
n:=n div 3;
a:=exp(n*ln(2));
write('всего амёб ',a:2);
readln;
end.

[netrino]

Сообщение от profi

Подправил:

uses crt; 
var i,a,n:integer;
begin
write('введите кол-во часов ');
readln(n);
n:=n div 3;
a:=n*2;
write('всего амёб ',a:2);
readln;
end.

Тут, наверное, нужно присваивать a не n*2, а 2 в степени n

[Serebro]

Сообщение от profi

Подправил:

uses crt; 
var i,a,n:integer;
begin
write('введите кол-во часов ');
readln(n);
n:=n div 3;
a:=n*2;
write('всего амёб ',a:2);
readln;
end.

2^{(n div 3)}

[profi]

Serebro, netrino ну и что? Все правильно работает у меня.

[Serebro]

profi,
проверь расчёты при n>=9.

P.S.
Если программа работает, это ещё не значит, что правильно.

[profi]

Serebro проверил. И?

[netrino]

2profi, да ладно, не партесь ) поправили вас просто. при n = 9 в вашем примере получим 6, а должно быть 8.