Задача 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()
ссылка- запись, которая индентифицир длкумент или его часть. Используется в документе для связи с другим документом, а также для связи одной части документа с другой частью.
сноска - примечание (замечание), помещаемое внизу полосы (постраничная сноска) или в конце текста (концевая сноска).
Обычные и концевые сноски используются для объяснения, комментирования и ввода ссылок для текста в документе. Сноски размещаются в нижней части страницы, в то время как концевые сноски размещаются вместе на странице в конце документа.
const n=7;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
a[2]:=a[2]+a[3];
a[3]:=a[2]-a[3];
a[2]:=a[2]-a[3];
for i:=1 to n do
writeln(a[i]);
end.