Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var n,a,i:integer;
begin
write(n=);readln(n);
a:=1;
if n mod 3 <>0
 then writeln(Число должно быть кратно 3)
 else begin
       for i:=1 to n div 3 do a:=2*a;
      writeln(Количество амеб через ,n, часов = ,a);
      end;
end.