Если нужен ввод через запятую: using System; namespace ConsoleApp14{ class Program { static void Main(string[] args) { Console.WriteLine("Введите длины сторон треугольника через запятую"); string[] OutS = Console.ReadLine().Split(','); double a = Convert.ToInt32(OutS[0]); double b = Convert.ToInt32(OutS[1]); double c = Convert.ToInt32(OutS[1]); double p = ((a + b + c) / 2); Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c; Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p)); Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется } }} Если не хочешь использовать метод Split: using System; namespace ConsoleApp14{ class Program { static void Main(string[] args) { Console.WriteLine("Введите длину стороны a"); double a = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите длину стороны b"); double b = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите длину стороны c"); double c = Convert.ToInt32(Console.ReadLine()); double p = ((a + b + c) / 2); Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c; Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p)); Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется } }}
var a: array[1..n] of real; i, j: integer; min, max: real; sum, product, harmonic: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin a[i] := random(40) - 20; write(a[i], ' '); end; writeln();
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do sum := sum + a[i]; writeln('average = ', sum / n);
{минимум и максимум} min := a[1]; for i := 1 to n do if min > a[i] then min := a[i]; writeln('min = ', min);
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; writeln('sum = ', sum); end.
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2;
var (x, y) := (Sqrt(a), Sqrt(b));
Println('Сумма и произведение корней:', x + y, x * y);
(x, y) := (a*a, b*b);
Print('Частное и разность квадратов:', x/y, x - y)
end.