Question

1)Напишите программу вычисления площади равностороннего треугольника по известным сторонам.
2)Нахождение минимум из 2 чисел.
Благодарю.

Answer 1

uses crt;
var s,p,a,b,c:real;
begin clrscr;
writeln('vvedite a,b,c');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c))
writeln('ploshad = ',s:0:2);
readkey;
end.