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

1

Ответы и объяснения

2013-07-28T21:37:03+00:00
Program STrapicii ;
var
a, b, h, S : Integer ;
begin
 writeln('Type a');
 readln(a)
 writeln('Type b');
 readln(b) ;
 writeln('Type h');
 readln(h) ;
 S:=1/2*(a+b)*h ;
 writeln(h) ;
end.