так как mod это остаток от деления и так как четное число это то число которое делится на 2 без остатка то правильный ответ Г
Ответ такой, по возрастанию a,d,c,b.
Var t, a, i: integer;
begin
write('Введите количество минут: ');
read(t);
a:=1;
for i:=1 to t do
begin
a:=a*2;
writeln('Бактерий через ', i , ' минут: ', a);
end;
<span>end.</span>