Задачи VBA: 1. В зависимости от возраста ребенка выдайте сообщение: младенец, ясельник, детсадовец или школьник. 2

Задачи VBA: 1. В зависимости от возраста ребенка выдайте сообщение: младенец, ясельник, детсадовец или школьник. 2. Есть урожай из N кг яблок. Определите, через сколько дней весь урожай будет вынесен, если каждый день количество вынесенных корзин удваивается, и в одной корзине помещается 5 кг. Если нужно, буду выполнять задачи по частям.

Подтвержденное решение:

Sub ВремяВыносаУрожая()
Dim N As Double
Dim КоличествоКорзин As Double
Dim Дни As Integer

‘ Введите общее количество килограммов яблок
N = InputBox(«Введите общее количество килограммов яблок:»)

‘ Инициализация переменных
КоличествоКорзин = N / 5
Дни = 0

‘ Пока есть яблоки, выносим корзины
Do While КоличествоКорзин >= 1
КоличествоКорзин = КоличествоКорзин / 2
Дни = Дни + 1
Loop

‘ Вывод результата
MsgBox «Весь урожай будет вынесен через » & Дни & » дней.»
End Sub

Отправь ответ другу:

Один комментарий

Ответить

Ваш адрес email не будет опубликован. Обязательные поля помечены *