Задача 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()
Появилось две линии, стрелочка начала зацикливаться. Получается алгоритм будет выполняться бесконечное количество раз. Чтобы более точно ответить на письменный вопрос - можете провести идентичные действия:
Заходим в ГРИС.
Нажимаем "Начать"
Нажимаем F4(поворот) три раза. (В условии сказано, что исходное положение: ГРИС — в левом верхнем углу, направление — вниз.)
Теперь нажимаем F8(цикл) - выбираем: Пока впереди не стена.
Следующим этапом нажимаем F5 (описание). В появившейся строке нужно написать ПУТЬ и нажать Enter. Чтобы отключить окно нажимаем Esc. Жмем ещё два раза Enter.
Нажимаем: F4 - F3 - F4 (поворот - прыжок - поворот).
При откладки (вверху) спускаемся в самый низ на панели наших действий (слева).
Жмем F8 - Пока впереди стена.
Жмем F2 (шаг).
Жмем на откладку вверху и смотрим результат
Готово))
