Question

Задание 4. Через сколько дней выздоровеет больной, если благодаря применению лекарства концентрация бактерий уменьшается ежедневно на 20% от предыдущего количества. Первоначальная концентрация – 50 единиц. Здоровым человек станет при содержании 12 единиц в кровиСоставить программу в PascalABC

Answer 1

Var c, i, s: real;
 begin
  s := 0;
  c := 50;
  while c > 12 do
   begin
    i := (c / 100) * 20;
    c := c - i;
    s := s + 1;
  end;
   write(s);
end.

Answer 2

Для решения данной задачи вам потребуется написать программу на языке PascalABC. В программе вы будете использовать цикл, чтобы вычислить количество дней, через которое больной выздоровеет.

Вот пример программы на PascalABC, которая решает данную задачу:

program HealthRecovery;

var
  bacteriaCount: Integer;
  days: Integer;

begin
  bacteriaCount := 50; // первоначальная концентрация бактерий
  days := 0; // количество дней

while bacteriaCount > 12 do
  begin
    bacteriaCount := Round(bacteriaCount * 0.8); // уменьшение концентрации бактерий на 20%
    days := days + 1; // увеличение количества дней
  end;

writeln('Через ', days, ' дней больной выздоровеет.');
end.

В этой программе мы используем переменные `bacteriaCount` для хранения текущей концентрации бактерий и `days` для хранения количества дней. Мы начинаем с первоначальной концентрации бактерий, равной 50 единицам, и увеличиваем количество дней до тех пор, пока концентрация бактерий не станет меньше или равной 12 единицам. В каждой итерации цикла мы уменьшаем концентрацию бактерий на 20% от предыдущего значения, используя функцию `Round` для округления результата до целого числа.

После завершения цикла мы выводим сообщение о том, через сколько дней больной выздоровеет.

Примечание: Пожалуйста, учтите, что язык PascalABC не является широко распространенным языком программирования, и его использование может быть ограничено определенными средами разработки или образовательными учреждениями. Если у вас возникнут проблемы с выполнением программы на PascalABC, рекомендуется обратиться к документации или ресурсам, связанным с этим языком программирования.