Question

С клавиатуры последовательно вводятся длины сторон двух треугольников. Составить программу, которая производит сравнение площадей треугольников.

( Решить с помощью процедуры. )

 

p.s. внизу моё решение!!!

Answer 1

vara1,b1,c1,p1,a2,b2,c2,p2,s1,s2:real;
Begin
read(a1,b1,c1);
p1:=(a1+b1+c1)/2;
read(a2,b2,c2);
p1:=(a2+b2+c2)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
if s1=s2 then
writeln('=') else
if s1>s2 then
writeln('>') else
writeln('<');
End.

Answer 2

после var пробел.