Ответы на вопрос:
Var amoebas, t: integer; begin amoebas : = 1; t : = 0; repeat t : = t + 3; amoebas : = amoebas * 2; writeln(amoebas, ' амеб через ', t, ' часа'); until t > = 24; end.
Популярно: Информатика
-
mindrehumor1111112.06.2022 23:13
-
komissar180928.06.2020 04:06
-
SemenBio18.01.2020 05:04
-
Tochi109.08.2022 07:25
-
KuDiAnA200319.02.2022 08:42
-
yuliya21623.01.2021 10:51
-
Катя4681190909.11.2021 14:49
-
MarusiaG06.05.2021 01:21
-
даун4708.04.2020 20:30
-
Лиза2209200430.03.2022 02:05