function [t]=ukol2_reseni(jednotka)
%[t]=ukol2_reseni(jednotka)
%
% Funkce zjisti, jak dlouho bude trvat, nez hmotnost bakterii Yersinia pestis presahne hmotnost Zeme, pokud se bakterie deli kazdych 100 minut, 
% nehynou a v case t=0 byla na Zemi 1 bakterie.
%
% jednotka    ... jednotka casu t
%  = 1        ... minuty
%  = 2        ... hodiny
%  = R\{1,2}  ... dny
%
% t ... doba v minutach/hodinach/dnech, po ktere hmotnost mnozicich se
% bakterii prekroci hmotnost Zeme

m_b = 6e-15; % hmotnost bakterie
m_z = 6e24; % hmotnost Zeme

t = 0;
pocet_bakt = 1;

while pocet_bakt*m_b < m_z
    pocet_bakt = pocet_bakt*2;
    t = t + 100;
end

% vypis vysledku
if jednotka == 1
    disp(['Hmotnost bakterii prekrocila hmotnost Zeme za ', num2str(t,'%1.2g'), ' minut.'])
elseif jednotka == 2
    t = t / 60;
    disp(['Hmotnost bakterii prekrocila hmotnost Zeme za ', num2str(t,'%1.2g'), ' hodin.'])
else
    t = t / (60*24);
    disp(['Hmotnost bakterii prekrocila hmotnost Zeme za ', num2str(t,'%1.2g'), ' dnu.'])
end   

%konec
