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

[profi]

3 часа - 2 клетки, 6 часа - 4 клетки, 9 часов - 6 клеток. netrino и что не правильно?

[netrino]

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

3 часа - 2 клетки, 6 часа - 4 клетки, 9 часов - 6 клеток. netrino и что не правильно?

6 часов - 4 клетки, каждая из них разобьётся на 2 - итого 8 клеток должно быть через 9 часов)

[profi]

netrino короче забейте Правильно меня подправили

[mister.gun]

Может так? при 6 часов указывает две амёбы?

uses crt;
var i,n,a:integer;
t1,t2:text;
begin
clrscr;
assign(t1,'nach.txt');
reset(t1);
assign(t2,'kon.txt');
rewrite(t2);
readln(t1,n);
a:=1;
for i:=1 to n do
n:=n div 3;
a:=a+1;
writeln(t2,'vsego ameb',a:4);
close(t1);
close(t2);
end.

сможете подправить?

[Serebro]

Сообщение от mister.gun

Может так? при 6 часов указывает две амёбы?

uses crt;
var i,n,a:integer;
t1,t2:text;
begin
clrscr;
assign(t1,'nach.txt');
reset(t1);
assign(t2,'kon.txt');
rewrite(t2);
readln(t1,n);
a:=1;
for i:=1 to n do
n:=n div 3;
a:=a+1;
writeln(t2,'vsego ameb',a:4);
close(t1);
close(t2);
end.

сможете подправить?

Смотри выше.

a:=2^{(n div 3)};
writeln(t2,'vsego ameb',a:4);

[mister.gun]

не ребятки, что то не работает, вроде всё пральна, только при разных значениях n, в ответе пишет одну и туже цифру - 4

[profi]

Смотри пост #4. Там все правильно.

[mister.gun]

о, всё, работает, спасибо большое