Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - VB
Формулировка задачи:
Дано N положительных вещественных чисел. Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел.
Решение задачи: «Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел»
textual
Листинг программы
Private Sub Form_Load()
c = InputBox("Сколько чисел?")
ReDim b(1 To c)
произведение_целых_частей = 1
Randomize
For a = 1 To c
b(a) = Rnd * c
произведение_целых_частей = произведение_целых_частей * Int(b(a))
сумма_дробных_частей = сумма_дробных_частей + b(a) - Int(b(a))
Next
MsgBox "произведение целых частей чисел = " & произведение_целых_частей & vbLf & _
"сумма_дробных_частей = " & сумма_дробных_частей
End Sub