числа Фибоначчи получаются последующим методом: 1-ые 2 числа из их равны

Числа Фибоначчи получаются последующим путем: 1-ые 2 числа из них одинаковы первому, каждое следующее методом суммы 2-ух предыдущих. Отыскать 1-ое из чисел Фибоначчи превосходящие 1000.
надобно сотавть программку начиная со слов
Dim a as integer...

Задать свой вопрос
Chuchurjukina Ekaterina
VB 6.0 или VB.NET?=)
1 ответ
Sub Main()
        Dim a As Integer = 1
        Dim b As Integer = 1
        Dim c As Integer 
        Do While (a lt; 1000)
            c = a
            a = a + b
            b = c
        Loop
        Console.Write(a)
        Console.Read()
    End Sub

Это на VB.NET, а 6.0 у меня нету:)


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт