Вычисления
Начальная масса бактерий в теле учёного = 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
#include <iostream>
using namespace std;
int main()
{
int a, b;
cout << "a = ", cin >> a;
cout << "b = ", cin >> b;
for (int i=a; i<=b; i++) {
cout << i << " ";
}
return 0;
}
Пример:
a = 5
b = 12
5 6 7 8 9 10 11 12
2.
#include <iostream>
using namespace std;
int main()
{
int a, b, s=0;
long long p=1;
cout << "a = ", cin >> a;
cout << "b = ", cin >> b;
for (int i=a; i<=b; i++) {
p = p*i;
s = s+i;
}
cout << "p = " << p << " s = " << s;
return 0;
}
Пример:
a = 5
b = 12
p = 19958400 s = 68