Алгоритм вычисления функции F(n) задан следующими соотношениями: F(n) = n при n ≤ 3; F(n) = n + F(n – 1) при чётных n > 3; F(n) = n · n + F(n – 2) при нечётных n > 3; Определите количество натуральных значений n, при которых F(n) меньше, чем 108.

def F(n):

if n>3:

if n%2==0:

return n+F(n-1)

else:

return n*n+F(n-2)

else:

return n

k = 0

for i in range(1,10**10):

if F(i)<108:

k+=1

else:

break

print(k)

ответ: 8

Грубовато, но менее ресурсоёмко

Module Module1
    Sub Main()
        Dim a As String = Console.ReadLine()
        If (a = "Зима") Then
            Console.WriteLine("Декабрь (31), Январь (31), Февраль (28-29)")
            Console.WriteLine("90-91 д.")
        ElseIf (a = "Весна") Then
            Console.WriteLine("Март (31), Апрель (30), Май (31)")
            Console.WriteLine("92 д.")
        ElseIf (a = "Лето") Then
            Console.WriteLine("Июнь (30), Июль (31), Август (31)")
            Console.WriteLine("92 д.")
        ElseIf (a = "Осень") Then
            Console.WriteLine("Сентябрь (30), Октябрь (31), Ноябрь (30)")
            Console.WriteLine("91 д.")
        End If
        Console.ReadKey()
    End Sub
End Module

Трещит, а не кузнечик,
Не водопад – шумит.
Хоть рта он не имеет,
Но внятно говорит.

За ним – сидим,
За  ним – едим,
Он всей  семье Необходим.

На компьютерном столе
она мне.
Колесиком и кнопкой
Я управляю ловко.

Он круглый и блестящий,
С пластинкою похож,
Но меньше он, изящней,
И современней все ж.
На нем хранится много
Всего,что ты захочешь.
Вот вставишь в дисковод его,
Читаешь все, что хочешь.

Есть у этого предмета
Только чистые листы.
Робко  ждут листочки эти,
Что на них напишешь ты
Что-то важное, святое,
Что никак нельзя забыть.
Без которого не стоит
Даже в этом мире жить.

Стоит здание
Кто в него войдет, 
Тот ум приобретет.

1)телефон 2)стол 3)мышка 4)диск 5)записная книжка 6)школа