Question

составить программу вычисления площади равнобедренного треугольника. S=1/2 hl, 1-основание h-высота.

Answer 1

uses crt;

var s, h: integer;

BEGIN

ClrScr;

readln(h, l);

s:= 1/2*(h*l);

writeln(s);

readln;

END. 

Answer 2

var h,l,a:real;

begin

writeln('введите высоту и основание треугольника в см');

read(h,l);

a:=h*l/2;

writeln(a);

end.

 

 

текст можешь сам изменить