Вычисления

Начальная масса бактерий в теле учёного = 90/100*10 = 9кг

1 процент бактерий от их начальной массы = 9/10*1 = 0,09кг = 90г

Код программы с объяснением

program raf105;

var X,Y,BoMass,kap,B1Mass:real;

begin

write('Количество бактерий в капле: ');

readln(X);

write('Общая масса бактерий в капле (в граммах): ');

readln(Y);

B1Mass:= Y / X; //Масса одной бактерии

while BoMass < 90 do

begin

 Y:= Y*2; //Масса бактерий в каждой капле

 X:= X*2; //Кол-во бактерий в каждой капле

 BoMass:= BoMass+Y; //Общая масса поселившихся бактерий

 kap:= kap+1; //Кол-во капель

end;

writeln;

writeln('Чтобы в организме учёного стало на 1% больше бактерий нужно ',kap,' капель воды.');

writeln('При этом в нём поселится ',X,' бактерий');

end.

Программа написана на языке PascalABC.NET