Question

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

Answer 1

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.