Известно, что некоторые бактерии размножаются каждые три минуты, разделяясь на две. Однако не все бактерии доживают до трехминутного возраста. Каждую минуту четверть всех бактерий погибает. Составить программу, которая печатает число бактерий через n минут, если в начале было k только что родившихся бактерий (n и k - целые числа).Написать в программе Word программу на Паскале.
Ответы
Ответ дал:
0
Ответ:
pascal
Объяснение:
var n, k, i:integer;
begin
Write('Введите минуты: ');
ReadLn(n);
Write('Введите количество бактерий: ');
ReadLn(k);
i:=1;
while i <= n do
begin
if (i mod 3 = 0) then k := k * 2;
k := round(int(k * 0.75));
i := i + 1;
end;
WriteLn('Через ', n, ' минут будет ', k,' бактерий');
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад