5 магических миль - 8 км
40 магических миль - х км,
Отсюда х = 40*8/5 = 64 км
Значит скорость скутера 64 км/ч, а 32 км он проедет за 32/64=1/2 часа или 30 минут
Ответ: 30 минут
Разметка страницы - поля - если в коллекции полей нет нужного, Настраиваемые поля
<span />
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
1)использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
сместиться на вектор(1,1)
сместиться на вектор(1,-1)
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
поднять перо
сместиться на вектор (2,-1)
опустить перо
кц
<span>кон
2)</span>использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
нц 3 раз
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
сместиться на вектор(-2,-2)
сместиться на вектор(-2,2)
поднять перо
сместиться на вектор(4,-1)
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
кц
<span>кон</span>
Sub calcL(ByRef S) index = 0 For k = Len(S) To 1 Step -1 If (Mid(S, k, 1) = " ") Or (Mid(S, k, 1) = ".") Or (Mid(S, k, 1) = ",") Then index = k Exit For End If Next k L = 0 For k = index - 1 To 1 Step -1 If Mid(S, k, 1) = " " Then index = k Exit For Else L = L + 1 End If Next k MsgBox "Длина предпоследнего слова " + Str(L) End Sub
Sub test() Call calcL("В данном предложении несколько слов") Call calcL("Второе предложение более длиннее первого")End Sub