4. через сколько дней выздоровеет больной, если применению лекарства концентрация бактерий уменьшается ежедневно на 20% от предыдущего количества. первоначальная концентрация – 50 единиц. здоровым человек станет при содержании 12 единиц в крови составить программу в pascalabc
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.