Question

Каждая бактерия делится на две в течение одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая рассчитывает количество бактерий на заданное пользователем с клавиатуры целое значение момента времени 15 минут. Мне через Паскаль нужно и еще что бы через операторы white и do.Срочно нужно спасибо заранее.

Answer 1

Var a,b,c:integer;
Begin
a:=1;
b:=0;
write('Введите кол-во минут: '); readln(c);
while (b<>c) do begin a:=a*2; b:=b+1; end;
writeln(a);
end.