Question

Помогите срочно!
Написать программу расчет площади треугольника

Answer 1

Ответ:

var a,b,alpha:integer;

s:real;

begin

Writeln('Введите две стороны и угл треугольника через пробел:');

readln(a,b,alpha);

if(alpha = 90) then

begin

s := (a*b)/2

end

else  

begin

s := a*b*sin(alpha);

end;

Writeln('Площадь равна ',s);

end.

Объяснение: