Mrztr
01.09.2020 08:13

с задачей,я слишком глуп,необходимо написать программу на языке паскаль

У избушки Бабы Яги каждый год появляется по три ноги, но после того, как ей исполнится 100 лет (т.е. со 101 года)- только по две.

Сколько куриных ножек и пальцев на них(если на одной ноге обычно их вырастает 4) у избушки, которой N лет?(сначала в задаче с возраст избушки, он то и будет переменной N).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vikasaaan
13.05.2023 10:00
Многие пользователи активно используют программу PowerPoint для создания презентаций. Но мало кто знает, какие требования при этом должны выполняться, каких ошибок нужно избегать. Рассмотрим основные ошибки, которые совершает пользователь при создании презентации.
 Ошибка 1. Фон слайда не сочетается с темой презентации. И мы видим, к примеру, презентацию о революциях в России на фоне с березками и грибочками.Ошибка 2. Использован фон, который входит в набор программы PowerPoint. За многие годы существования программы PowerPoint стандартными шаблонами воспользовались тысячи людей, опубликовали свои презентации в сети, показали на выступлениях. Эти шаблоны уже просто надоели слушателям.
0,0(0 оценок)
Ответ:
vlasenkoa16311
03.01.2021 11:08
Sub m2()
    Cells.Clear
    Dim n As Integer, i As Integer, min As Integer
    n = InputBox("n(>5) = ")
    Cells(1, 1).Value = "n = " + Str(n)
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = InputBox("a(" + Str(i) + ")")
    Next i
    Cells(2, 1).Value = "Исходный массив"
    Range(Cells(3, 1), Cells(3, n)).Value = a
    min = a(1)
    For i = 2 To n
        If a(i) < min Then min = a(i)
    Next i
    Cells(4, 1).Value = "min = " + Str(min)
    Cells(5, 1).Value = "Полученный массив"
    For i = n - 4 To n
        a(i) = min
    Next i
    Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота