Вычислите значениея данных выражений на языке Python. 1. 30+26/7
2. 25/5+9
3. 12+6*7

​

begin

 var L := ReadSeqInteger('Вводите:', ReadInteger('N=')).ToList;

 L.Println; // исходная

 var k := L.OrderDescending.Skip(1).First; // после чего вставить

 var A := ReadInteger('Что вставляем?');

 L.Insert(L.IndexOf(k) + 1, A);

 L.Println; // после вставки

 k := L.Max;

 var ai := L.ToArray.IndexesOf(t -> t = k).ToArray;

 if ai.Count > 1 then

 begin

   L.RemoveAt(ai[1]);

   L.Println; // после удаления, если оно было

 end;

 L := L.SortedDescending.ToList;

 L.Println // после сортировки

end.

using System;

//6,

//28,

//496,

//8128,

//33550336

internal class Program {

   private static void Main() {

       var max = 0L;

       var quantity = 0;

       Console.WriteLine("Введите последовательность. Для окончания введите ноль");

       do {

           var n = long.Parse(Console.ReadLine());

           if (n == 0)

               break;

           if (max == n)

               quantity++;

           else if (n > max && IsIdealNumber(n)) {

               max = n;

               quantity = 1;

           }

       } while (true);

       Console.WriteLine($"max = {max}, кол-во = {quantity}");

       Console.ReadKey();

   }

   private static bool IsIdealNumber(long number) {

       var sum = 1L;

       for (var i = 2L; i <= number / 2; i++) {

           if (number % i != 0)

               continue;

           sum += i;

           if (sum > number || number < 0)

               break;

       }

       Console.WriteLine($"number = {number}, sum = {sum}");

       return sum == number; //зачем выдумывать нолики и единички если давно придуманы буленовские переменные

   }

}