Question

Исполнить программу нахождения площади прямоугольной трапеции, если основания трапеции 9см и 18см, большая сторона равна 15см

Answer 1

 Var a,b,h,l;real; {a- Меньшая сторона основания, b большая сторона основания, h высота, l большая сторона}

begin

read(a,b,l);

h=sqrt(sqr(l) - sqr(b-a));{При усоловии что b это большая сторона, находим высоту}

S:=((a+b)*h)/2; {Находим площадь трапеции}

writeln(S:3:0); {Выводим результат (S:3:0 <- 3 сколько знаков до запятой,  0 сколько после)}

end.