Ответы на вопрос:
Procedure copy_bacterium(time: integer); var i, bacterium: integer; begin bacterium: = 1; for i: =1 to time do bacterium: = bacterium * 2; writeln(bacterium); end; var n: integer; begin readln(n); copy_bacterium(n); end.
Популярно: Информатика
-
hatidzemustafaeva25.01.2020 01:24
-
murat20020219.01.2022 19:17
-
AndHeAgaIN210.03.2022 22:16
-
СвятойТапочек11.07.2021 17:13
-
hohlov22815.08.2022 00:45
-
sergeyyakimov0502.06.2021 20:15
-
danilru940Vova21.04.2022 17:13
-
arishaprohorenk07.06.2022 21:09
-
Alina22100613.10.2021 20:37
-
reshetnicova7402.07.2021 09:40