Задача 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()
Возможно, в исходной программе ошибка:
write('Введите a:');
readln(a);
write('Введите b:');
readln(a); - повторный ввод a, вместо b.
Переведенный в C# и синтаксически верный код данной программы:
using System;
namespace ConsoleApp3
{
class Program
{
static void Main(string[] args)
{
int a=0, b=0, c=0;
double x;
Console.Write("Введите a: ");
a = int.Parse(Console.ReadLine());
Console.Write("Введите b: ");
a = int.Parse(Console.ReadLine());
Console.Write("Введите c: ");
c = int.Parse(Console.ReadLine());
x = b + (Math.Sqrt((b * b) + (4 * a * c)) / (2 * a)) - (a * a * a * c) + (b * b) - 2;
Console.Write("Результат: " + string.Format("{0:##.##}", x));
Console.ReadLine();
}
}
}