Можно через макрос VBA Excel
Sub
zapolnut()
For i = 1
To 100
Cells(i, 1)
= Rnd()
Cells(i, 2)
= 2 * Cells(i, 1)
Next i
End Sub
В тропосфере развиваются циклон и антициклон.
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.
8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 104, 112, 120, 128, 136, 144, 152, 160, 168, 176, 184 - секунды, когда башня разваливается
нам нужен период с 121 по 180 секунды. По списку получается 7 раз
23456₁₀ = 101101110100000₂