Решить по информатике язык python - ветвления 1. определите значение переменной «a» после выполнения фрагмента программы: a = 10 if a < 5: a = 5 2. определите значение переменной «a» после выполнения фрагмента программы: a = 10 if a > 5: a = 12 3. определите значение переменной «a» после выполнения фрагмента программы: a = 10 if a < 5: a += 12 else: a -= 7

1. a = 10
2. a = 12
3. a = 3

Смотри, всё просто. На примере последнего. Заданное значение а: 10. Условия: 1) если а меньше 5, прибавьте 12. 2) Если нет (другой исход), отнимите 7. 10>12 => значит, отнимаем 7 от 10: 10-7 = 3.

//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.

var

 n, k, s, sa: integer;

 

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: