Question

Написать программу на языке Turbo Pascal .Вычисления площади равнобедренной трапеции.

Answer 1

var

   a, b, h: real;

begin

   write('Введите стороны a, b и h через пробел: ');

   readln(a, b, h);

   writeln('S трапеции = ', (a + b) * h / 2)

end.