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

Question

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

---

Answer 1

Вычисления

Начальная масса бактерий в теле учёного = 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

Answer 2

Решение:

program project;

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

begin

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

readIn(Y);

G:= Y / X ;

while F < 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