Предмет: Информатика,
автор: MaximPP
Известно, что некоторые бактерии размножаются каждые три минуты, разделяясь на две. Однако не все бактерии доживают до трехминутного возраста. Каждую минуту четверть всех бактерий погибает. Составить программу, которая печатает число бактерий через 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.
Похожие вопросы
Предмет: Русский язык,
автор: махыч002
Предмет: Русский язык,
автор: Марыка
Предмет: Английский язык,
автор: devochca
Предмет: Литература,
автор: Аноним