Составьте алгоритм и программу для вычисления площади равнобедренной трапеции. Длина большего основания a =18 см., длина меньшего основания b =10 см., диагонали d =16 см.
(формулы во вложении)
var a,b,d:integer; h,s:real; begin a:=18; b:=10; d:=16; h:=sqrt(sqr(d)-sqr((a-b)/2)); s:=(a+b)*h/2; writeln(s:4:2); end.
Обязательно проверьте, мог ошибиться.