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

Составить программу в PascalABC

Question

Довмонт

25 марта, 22:28

+5

Ответы (1)

Знаете ответ на вопрос?

Фиста · 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.