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

Question

Гость

Ответ(ы) на вопрос:

Гость

uses crt; var s, h: integer; BEGIN ClrScr; readln(h, l); s:= 1/2*(h*l); writeln(s); readln; END.

Accepted Answer

var h,l,a:real; begin writeln('введите высоту и основание треугольника в см'); read(h,l); a:=h*l/2; writeln(a); end. текст можешь сам изменить