Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
В лесу, парке, поле, берег речки - зрительная, слуховая, обонятельная.
Количество информации вычисляется по формуле log(2)10≈3,32
2) writeln (copy(s1,2,6));
3) delete (s,1,5);
<span>3. капля чернил впрыскивается на бумагу через сопло</span>