Паскаль. Составить программу вычисления площади треугольника по любой из 3 известных формул(в программе должны использоваться все 3 на выбор).Сами формулы:
var S,a,b,c,p,p1,h:real; k:integer; begin write('Kakoy sposob viberem(1,2,3)?'); read(k); if k=1 then begin writeln('Vvedite a,h'); read(a,h); S:=(a*h)/2; end; if k=2 then begin writeln('Vvedite a,b,c'); read(a,b,c); S:=(Sin(c*Pi/180)*a*b)/2; end; if k=3 then begin writeln('Vvedite a,b,c'); read(a,b,c); p1:=1/2*(a+b+c); S:=sqrt(p1*(p1-a)*(p1-b)*(p1-c)); end; writeln(S); end.
