1.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,1)
сместиться на вектор (6,0)
сместиться на вектор (0,-1)
сместиться на вектор (-6,0)
сместиться на вектор (0,1)
кц
поднять перо
сместиться в точку (-1,-1)
кон
2.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,6)
сместиться на вектор (1,0)
сместиться на вектор (0,-6)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
кц
поднять перо
сместиться в точку (-1,-1)
кон
3.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,1)
сместиться на вектор (6,0)
сместиться на вектор (0,-1)
сместиться на вектор (-6,0)
сместиться на вектор (0,1)
кц
поднять перо
сместиться в точку (0,0)
опустить перо
нц 6 раз
сместиться на вектор (0,6)
сместиться на вектор (1,0)
сместиться на вектор (0,-6)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
кц
поднять перо
сместиться в точку (-1,-1)
кон
Объяснение:
Смотри картинки
Задача 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()