Screen 12 замок нужно нарисовать замок и посчитать информатика

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. Вывести результат

N = int(input("Количиство трикутников: "))
import random
s = 0
t = 0
for x in range(1,N+1):
print(x,"-ий трикунтик має довжину:")
AB = random.randint(1,10)
BC = random.randint(1,10)
CA = random.randint(1,10)
P = AB + BC + CA
if AB**2 >(BC+CA)**2:
t +=1
else:
print("AB = ",AB,'см')
print("BC = ",BC,'см')
print("CA = ",CA,'см')
print("Периметр = ",P,'см')
s += P
print("\nТупокутних трикутників =",t)
print("Сума всіх периметрів =",s,'см')

Пример:
Количиство трикутников: 10
1 -ий трикунтик має довжину:
AB =  3 см
BC =  5 см
CA =  6 см
Периметр =  14 см
2 -ий трикунтик має довжину:
AB =  8 см
BC =  4 см
CA =  6 см
Периметр =  18 см
3 -ий трикунтик має довжину:
AB =  5 смBC =  3 смCA =  3 смПериметр =  11 см4 -ий трикунтик має довжину:AB =  3 смBC =  3 смCA =  2 смПериметр =  8 см5 -ий трикунтик має довжину:AB =  6 смBC =  7 смCA =  2 смПериметр =  15 см6 -ий трикунтик має довжину:AB =  9 смBC =  9 смCA =  8 смПериметр =  26 см7 -ий трикунтик має довжину:8 -ий трикунтик має довжину:AB =  7 смBC =  8 смCA =  4 смПериметр =  19 см9 -ий трикунтик має довжину:AB =  1 смBC =  6 смCA =  3 смПериметр =  10 см10 -ий трикунтик має довжину:AB =  7 смBC =  9 смCA =  2 смПериметр =  18 см
Тупокутних трикутників = 1Сума всіх периметрів = 139 см