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

elmirayanbukov elmirayanbukov    3   09.07.2019 15:20    0

Ответы
pomogi12321 pomogi12321  17.09.2020 02:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика