Question

Написать программу, которая преобразует введенное пользователем количество дней в количество полных недель и оставшихся дней. Например, пользователь ввел 17 дней, программа должна вывести на экран 2 недели и 3 дня.

Answer 1

Sub Zadanie23525370()
    ' Dim d As Integer
    d = CInt(InputBox("Кол-во дней?"))

    MsgBox "Недель: " & d\7 & "; Дней: " & d mod 7
End Sub

Answer 2

Программа для преобразования количества дней в недели и дни

Для написания программы, которая преобразует введенное пользователем количество дней в количество полных недель и оставшихся дней, можно использовать язык программирования Python. Вот пример программы:

# Получение количества дней от пользователя
days = int(input("Введите количество дней: "))

# Вычисление количества недель и оставшихся дней
weeks = days // 7
remaining_days = days % 7

# Вывод результата на экран
print(f"{days} дней = {weeks} недель и {remaining_days} дней")

Программа запрашивает у пользователя количество дней, затем вычисляет количество полных недель и оставшихся дней с помощью операций деления нацело (`//`) и остатка от деления (`%`). Наконец, программа выводит результат на экран.

Например, если пользователь ввел 17 дней, программа выведет:

17 дней = 2 недели и 3 дня

Примечание: В данном примере используется язык программирования Python, но подобную программу можно написать на других языках программирования, таких как Java, C++, JavaScript и других.