Одноклітинна амеба ділиться навпіл кожні 3 години. Визначити скільки буде амеб
через 3,6,9,12, ... , 24 години РЕШИТЬ ОБЕЗАТЕЛЬНО ЧЕРЕЗ КОМАНДУ range

Question

Информатика: Одноклітинна амеба ділиться навпіл кожні 3 години. Визначити скільки буде амеб через 3,6,9,12, ... , 24 години РЕШИТЬ ОБЕЗАТЕЛЬНО ЧЕРЕЗ КОМАНДУ range

ОдиннидО · Accepted Answer

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
var a:=ArrRandom(12,-23,42); a.Println;
for var i:=0 to a.Length-1 do
if a[i]<10 then a[i]:=i+1;
a.Println
end.

Пример
26 25 -11 -11 6 32 -18 18 -9 28 1 -23
26 25 3 4 5 32 7 18 9 28 11 12

№2

begin
var a:=ArrRandom(21,-42,56); a.Println;
foreach var i in Range(0,20,2) do a[i]+=5;
a.Println
end.

Пример
21 3 31 -11 17 47 41 22 9 31 -33 -37 -37 43 1 34 -35 -14 -28 56 -13
26 3 36 -11 22 47 46 22 14 31 -28 -37 -32 43 6 34 -30 -14 -23 56 -8

Одноклітинна амеба ділиться навпіл кожні 3 години. Визначити скільки буде амеб через 3,6,9,12, ... , 24 години РЕШИТЬ ОБЕЗАТЕЛЬНО ЧЕРЕЗ КОМАНДУ range

MOGZ ответил

Одноклітинна амеба ділиться навпіл кожні 3 години. Визначити скільки буде амеб
через 3,6,9,12, ... , 24 години РЕШИТЬ ОБЕЗАТЕЛЬНО ЧЕРЕЗ КОМАНДУ range