Shared Sub Main(args As String())
Dim n As Integer = Integer.Parse(Console.ReadLine())
Dim p As Single = 1
Dim i As Integer = 1
While i <= n
Dim a As Single = 2 * i
Dim b As Single = 2 * i + 1
p *= a / b
i += 1
End While
Console.WriteLine(p)
End Sub
Объяснение:
Объяснение по стокам:
2. Считать n с консоли
3. p - переменная с результатом
4. i - переменная для цикла
5-10. цикл - основная часть программы
6-7. Числитель и знаменатель соответсвенно.
8. Умножить результат на новую дробь
9. Увеличить счетчик цикла
11. Вывести результат
1)Авторское право- право на то что нельзя копировать данные созданные другим человеком и выкладывать их без его разрешения. Люди , в основном нарушают это право ради заработка. Это выгодно и заказчику и установщику. Но нелегально . Я считаю правильно наказывать таких людей.
2) Присвоение авторства - наказывается штрафом в размере до двухсот тысяч рублей или в размере заработной платы или иного дохода осужденного за период до восемнадцати месяцев, либо обязательными работами на срок до четырехсот восьмидесяти часов, либо исправительными работами на срок до одного года, либо арестом на срок до шести месяцев. Почти совпало с вышесказанным
3)Наказывать лишением свободы - правильное действие . Только так человек все осознает.
4)Не нарушать авторское право. Быть осторожным при вступлении в сообщества , и общением с незнакомыми людьми