Для решения этой задачи нужно знать:
1) Температуру теплого воздуха в шаре
2) Температуру холодного воздуха на улице
3) Объем и вес шара, то есть бумаги и теплого воздуха
4) Самое главное - формулы, по которым все это рассчитывается.
Мне что-то кажется, что лучше всех всё это знаешь ты сам, потому что в классе наверняка решали подобную задачу.
Так что вывод такой: Не надейся на помощь, а кури учебник и лекции.
Если совсем не получается, попроси отличника. Пользы будет больше.
Ответ:
2, 3, 4 разряда по условию
Объяснение:
Ди - 2, Три - 3, Тетра - 4
Function IsArmstrong(m As Long) As Boolean
Dim s As Long, n As Integer, i As Integer, m1 As Long
Dim d(1 To 15) As Long
m1 = m: n = 0
Do While m1 > 0
n = n + 1
d(n) = m1 Mod 10
m1 = Int(m1 / 10)
Loop
s = 0
For i = 1 To n
s = s + d(i) ^ n
Next i
IsArmstrong = (s = m)
End Function
Sub Test()
Dim k As Long, i As Long, j As Integer
Cells.Clear
k = CLng(InputBox("Введите значение k"))
j = 1
For i = 0 To k
If IsArmstrong(i) Then
Cells(j, 1) = i
j = j + 1
End If
Next i
End Sub
При беге S=vt, ходьбе S=v1*t1, S одинаково, t1=vt/v1=3*t -ответ