решить задачу в Паскале.
Program perim;

Uses crt;

Var a,b,c,d,p:real;

Begin

Writeln(‘Введите значения длин сторон трапеции a,b,c,d’);

Readln(a,b,c,d);

P:=a+b+c+d;

Writeln(‘периметр=’,p);

Writeln(‘для возврата в редактор нажмите любую клавишу’);

Repeat until keypressrd;

End.

Преобразуем выражение


Первые 2 слагаемых при переводе в с. сч. 3 дадут числа вида "10000...00", и количество нулей будет равно величине степени. (Можешь сам у в этом убедиться для чисел с небольшой степенью). Поэтому первые два слагаемых переведутся в число "100...0010000...00", кол-во нулей между единицами равно 66-45 = 21, правее средней единицы = 44.

Число  гораздо меньше. Поэтому при вычитании мы будем занимать разряд до тех пор, пока не дойдем до средней единицы, которая станет после этого 0, а все, что правее - двойками (было "100..00100..00", стало "100..00022..22", но только после заёма единицы, ещё нужно довычистывать). Затем проведем вычитание и посмотрим, сколько двоек пришлось убрать для этого.

Переводим .
Вычитаем "100..00100..0000" - 110 = "100..00022..2120"
Кол-во двоек между маркерованными цифрами = 44 - 3 = 41. Добавим ещё одну 2 правее маркерованной единицы = 42 - ответ

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(3,8,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Искомое произведение ',
      a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]).
      Aggregate(BigInteger(1),(x,y)->x*y));
end.

Пример
*** Исходный массив ***
  60 -23  10 -18 -97 -90 -56   5
  32  51  -2   3  63 -76  17  85
 -41 -64   9  59  84 -66  69  28

Искомое произведение 1284904222221312000