Question

даю 50 баллов!!!! срочно!!!!!!!!!!!!!!!!!!!

Answer 1

Ответ: var t-время, ameba:integer;

begin

t:=3;

ameba:=1;

while t<=24 do

begin

ameba:=ameba*2

t:=t+3

write('Через', t, 'ч', 'ameba',)

end;

end