Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
2 апреля 2023 12:06
478
Одноклеточная амеба каждые 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
Остались вопросы?
Еще вопросы по категории Информатика
2. Рассчитайте объём памяти, необходимой для представления одноминутного фильма на экране монитора с пространственным разрешением 800 х 600 пикселей и...
Сколько МБАЙТ информации содержит сообщение объемом 2 ^27 бит?...
Иногда выводит ошибку: Ошибка времени выполнения, индекс находится вне границ массива. PascalABC.NET вот само задание: Дан массив А(n). Поменять места...
Как запустить установленную программу?(Кратко)...
Сделайте пожалуйста тест! Вопрос № 1 Абзац - это ... текст в литературе текст, написанный с большой буквы текст, ограничен...