Создать программу в бейсик
Автомобиль трогается с места и его скорость каждую секунду увеличивается на 4 км/ч.Какова скорость через 12с?
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
