10с/с 2с/с 8с/с 16с/с
256

111111

111

А4

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.

#include <iostream> //подключаем библиотеку iostream

using namespace std;

int main()

{

int a, s; //объявляем целочисленные переменные a и s

cin >> a; //вводим a

s = 0; //обнуляем сумму

 while (a != 0) //цикл while, условие - a не равно нулю

 {

  s = s + a % 10; //остаток от деления числа на 10 - его последняя цифра, прибавляем ее к сумме

  a = a / 10; // убираем последнюю цифру

 }

if (s % 2 == 0) //условие - проверка на четность

{

 cout << "summa chetnaya"; //выводим когда сумма четная

}

else

{

 cout << "summa nechetnaya"; //выводим когда сумма нечетная

}

return 0;

}