Вопрос по информатике:
Создать массив из n (n>2) чисел, в котором первые два элемента задаются с клавиатуры, а все последующие равны сумме двух предыдущих элементов
- 23.06.2018 11:13
- Информатика
- remove_red_eye 3704
- thumb_up 7
Ответы и объяснения 1
Sub z()
Dim a() As Integer
n = InputBox("Сколько чисел?")
ReDim a(n)
For i = 1 To 2
a(i) = InputBox("Введите число")
Next i
s = a(1) & " " & a(2)
For i = 3 To n
a(i) = a(i - 2) + a(i - 1)
s = s & " " & a(i)
Next i
MsgBox ("Массив: " & s)
End Sub
- 24.06.2018 04:25
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.