Задача 1:
Dim angle_one, angle_two, angle_three As Integer
Console.Write("Введите первый угол треугольника: ")
angle_one = Console.ReadLine
Console.Write("Введите второй угол треугольника: ")
angle_two = Console.ReadLine
angle_three = 180 - angle_one - angle_two
If angle_one = 90 Or angle_two = 90 Or angle_three = 90 Then Console.WriteLine("Треугольник прямоугольный.")
If angle_one > 90 Or angle_two > 90 Or angle_three > 90 Then Console.WriteLine("Треугольник тупоугольный.")
If angle_one < 90 And angle_two < 90 And angle_three < 90 Then Console.WriteLine("Треугольник остроугольный.")
Console.ReadKey()
Задача 2:
Dim n, sum As Integer
n = Console.ReadLine
For i = 1 To n
sum += i ^ 2
Next
Console.WriteLine("Сумма квадратов от 1 до " & n & " равна " & sum)
Console.ReadKey()

ответ: 13
Объяснение:
задача на оценку + пример
оценка:
для каждого человека можно выбрать 2-ух - которых нельзя вставить в дружеское жюри вместе с ним (может быть, что 1 это только 1 человек). => если для каждого 2 этих человека - разные мы можем взять ровно 1/3 от всех людей = 13. => ответ >= 13
пример (что 13 - макс).
возьмем 3 -х людей. 1 критикует 2-го, 2-ой 3-го, 3-ий первого. И разобьем 39 ученых на 13 таких троек, получим, что из каждой тройки можем взять только 1 ученого =>макс ученых 13
но данное количество учёных в жюри может быть верным, только в данной последовательности
Поделитесь своими знаниями, ответьте на вопрос:
V=K*I
V=640*350*4096=917 504 000