Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - VB

Формулировка задачи:

Дано N положительных вещественных чисел. Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел.

Код к задаче: «Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - VB»

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

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ