Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 06:26
830
Одноклеточная амеба каждые 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
·
Хороший ответ
5 апреля 2023 06:26
Остались вопросы?
Еще вопросы по категории Информатика
Укажите все возможные маршруты доставки интернет-пакетов от сервера "И "(источник) к серверу "П" (приёмник) через серверы 1. 2. 3. 4 с учётом имеющейс...
IP-адресу 128.65.255.16 соответствует 32-битовое представление: 10000000 01000001 11111111 00010000 10000000 10000000 11111111 00010000 10000001 100...
Стоит ли предавать значение безопастности при добовленее друзей на Faceebok...
год,в котором французский инженер Валтат выдвинул идею использования двоичной системы счисления при создании механических счётных устройств....
Выдаёт ошибку (Встречено 'else', а ожидался оператор) Что делать?? Program R ; var a,b,c,x,D,x1,x2:real ; begin readln (a,b,c) ; D:= a*(x*x)+b*x+...