Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 12:06
625
Одноклеточная амеба каждые 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
Остались вопросы?
Еще вопросы по категории Информатика
Известно, что 1 миля = 7 вёрст, 1 верста = 500 саженей, 1 сажень = 3 аршина, 1 аршин = 28 дюймов, 1 дюйм 25,4 мм. Пользуясь этой информацией, составьт...
1. Какое устройство осуществляет обработку информации? а) джойстик б) процессор в) клавиатура г) сканер д) ксерокс е) монитор 2. Какие устройства исп...
Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего предложения: В человеке должно быть все прекрасно: и лицо,...
Я новичок, есть только 35баллов( ⦁1 Для сохранения документа MS Word выполнить ⦁ команду Сохранить меню Файл ⦁ команду Сравнить и объединить исправл...
Нарисовать любые 2 рисунка в паскале авс...