Площадь трапеции на языке ABC pascal

Площадь трапеции на языке ABC pascal
Гость
Ответ(ы) на вопрос:
Гость
1 2 3 4 5 6 7 8 9 10 11 12 uses crt; var a,c,h,s,x:real; begin clrscr; writeln('Введите длины большего основания, боковой стороны и высоты '); writeln('равнобедренной трапеции:'); readln(a,c,h); x:=sqrt(c*c-h*h); s:=(a-x)*h; write('Площадь=',s:0:2); readln end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы