Проведем некоторые преобразования.
Наиболее вероятное предположение, что S2 - формула площади круга с диаметром Dr, а S1 - формула площади квадрата со стороной a и диагональю Dg.
В программа сравнивается диагональ квадрата и диаметр окружности и если диагональ меньше диаметра, выводится "да", в противном случае выводится нет. Это позволяет сделать предположение о следующей постановке задачи:
"Можно ли поместить брусок квадратного сечения с площадью S1 в полый цилиндр с площадью основания S2 ?". Или, как вариант, пройдет ли брусок в отверстие..
На одну чашу весов поместим две монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Предположим, что перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. В противном случае фальшивой окажется более тяжелая из двух сравниваемых монет.
Ответ:
Берешь готовый движок и впиливаешь его на свою корявую форму. Си Шарп + интернет Эксплорер = ванлав
Объяснение:
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
Осязание или тактильное чувство- способность человека ощущать прикосновения, воспринимать что-либо рецепторами, расположенными в коже, мышцах...
Значит когда мы гладим кошку мы ощущаем прикосновение, то какая она на ощупь.
Это осязательная информация.