Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
Defrag.exe format.com regedit.com fdisk.exe я токо столько знаю .
1 бочка = 3 галлона
2 бочка = 5 галлонов
Набираем во 2 бочку [0:5]
Переливаем из 2 в 1 бочку [3:2]
Выливаем из 1 бочки [0:2]
Переливаем из 2 в 1 бочку [2:0]
Набираем во 2 бочку [2:5]
Переливаем из 2 в 1 бочку [3:4]
Выливаем из 1 бочки [0:4]
Теперь у нас во второй бочку 4 галлона
110 из 2 в 10 = 6
100 из 8 в 10 = 64
101 из 16 в 10 = 257
257+64+6=327
Ответ: 327
(Лучший ответ)