Решите пожалуйста задачку через Паскаль во вложениях...(((даю наибольшие баллы

Решение:

program project;

var X, Y, F, Z, G :real;

begin

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

readIn(Y);

G:= Y / X ;

while F lt; 90 do

begin

Y:= Y * 2;

X:= X * 2;

F:= F + Y;

Z:= Z+1;

end;

writeIn;

writeIn('Чтобы в организме Иннокентия стало на 1% больше микробов необходимо ',Z,' капель воды.');

writeIn('При этом в учёном поселится ',X,' микробов');

end.

PascalABC.NET

Вычисления

Исходная масса микробов в теле учёного = 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 lt; 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