Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д