Question

25. В результате применения пенициллина концентрация болезнетворных бактерий в крови больного уменьшается на 1/3 в день от содержимого предыдущего дня. Через сколько дней наступит выздоровление, если концентрация бактерий должна уменьшиться от N1 до N2? (N1 > N2). Напишите программу

Answer 1

Условие можно записать так:

$(\frac{1}{3})^d * N_1 \ \textless \ N_2$
$(\frac{1}{3})^d \ \textless \ \frac{N_2}{N_1}$
$log_{ \frac{1}{3} }((\frac{1}{3})^d) \ \textgreater \ \ log_{ \frac{1}{3} }(\frac{N_2}{N_1})$
$d \ \textgreater \ \ log_{ \frac{1}{3} }(\frac{N_2}{N_1})$

begin
  var d : real;
  var N1: real;
  var N2: real;

  N1 := 0;
  N2 := 0;
 
  while (N1 < N2) or (N1 <= 0) or (N2 <= 0) or (N2 / N1 = 1) do begin
    writeln('Введите N1 и N2, N1 > N2: ');
    readln(N1);
    readln(N2);
  end;
 
  d := LogN(1.0 / 3.0, N2 / N1);
 
  writeln('Концентрация снизится минимум через, дней: ', d);
end.