Одноклеточная амёба каждые 3 часа делится на 2 части. определить сколько будет амёб через n часов. если пользователь ввёл число которое не делится на 3 то выдать ошибку
Одноклеточная амёба каждые 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.
Не нашли ответ?
Похожие вопросы