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
Трещит, а не кузнечик, Не водопад – шумит. Хоть рта он не имеет, Но внятно говорит.
За ним – сидим, За ним – едим, Он всей семье Необходим.
На компьютерном столе она мне. Колесиком и кнопкой Я управляю ловко.
Он круглый и блестящий, С пластинкою похож, Но меньше он, изящней, И современней все ж. На нем хранится много Всего,что ты захочешь. Вот вставишь в дисковод его, Читаешь все, что хочешь.
Есть у этого предмета Только чистые листы. Робко ждут листочки эти, Что на них напишешь ты Что-то важное, святое, Что никак нельзя забыть. Без которого не стоит Даже в этом мире жить.
Стоит здание Кто в него войдет, Тот ум приобретет.
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