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

23.03.2012, 22:57. **Показов** 2137. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

@Апострофф · 23.03.2012, 23:57

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
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

Новые блоги и статьи Все статьи Все блоги /
Организация масштабируемого хранилища с Apache Cassandra Codd 14.03.2025 Изначально разработанная в Facebook, а затем переданная Apache Software Foundation, Cassandra сочетает в себе принципы Amazon's Dynamo и Google's BigTable. Эта комбинация создает уникальную. . .	Kafka или Pulsar: Что лучше для потоковой обработки в Java Javaican 14.03.2025 Среди множества решений для потоковой обработки данных Apache Kafka долгое время удерживала лидирующие позиции, став де-факто стандартом в индустрии. Однако в последние годы всё больше внимания. . .	Создание и использование компонентов в Vue 3 Reangularity 14.03.2025 Компонент в Vue - это автономный блок интерфейса, который содержит собственную разметку, логику и стили. Представьте себе кнопку, форму ввода или даже целую панель навигации - всё это можно оформить. . .	Vue 3: Создаем современное веб-приложение с Composition API Reangularity 14.03.2025 В фронтенд-разработке Vue 3 выделяется своим прагматичным подходом. В отличие от React с его минималистичной философией "всё — JavaScript" или Angular с его всеобъемлющим корпоративным подходом, Vue. . .	Разработка контекстных меню в iOS mobDevWorks 14.03.2025 С приходом iOS 13 Apple представила новый API для контекстных меню, который полностью заменил предыдущую технологию 3D Touch peek & pop. Хотя многие разработчики и пользователи испытывают ностальгию. . .
Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .	Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .

Vika2012
		1
	Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел 23.03.2012, 22:57. Показов 2137. Ответов 1 Метки нет (Все метки) Дано N положительных вещественных чисел. Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел.