Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 12:06
767
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3, 6, 9,..., 24 часа, если первоначально была одна амеба.
1
ответ
Var
amoebas, t: integer;
begin
amoebas := 1;
t := 0;
repeat
t := t + 3;
amoebas := amoebas * 2;
Writeln(amoebas, ' амеб через ', t, ' часа');
until t >= 24;
end.
amoebas, t: integer;
begin
amoebas := 1;
t := 0;
repeat
t := t + 3;
amoebas := amoebas * 2;
Writeln(amoebas, ' амеб через ', t, ' часа');
until t >= 24;
end.
0
·
Хороший ответ
4 апреля 2023 12:06
Остались вопросы?
Еще вопросы по категории Информатика
Какой из представленных ниже форматов не относится к форматам файлов, в которых сохраняют текстовые документы? д)РРТ б) DOC b) ODT г) RTF (С ОБЪЯСН...
1) Чем вызвано существование многих способов записи алгоритмов? 2) Представьте с помощью блок-схемы алгоритм решения следующей задачи: "Из трех монет...
Расшифруй ребусы номер 7...
Пусть / – целочисленное деление. Тело функции F(n) задано следующими строчками и условиями: F(n) = 1, при n F(n) = F(n - 2) · (n / 3), при...
Помогите, очень срочно как нарисовать ракету в паскале ABC...