Var a, b, c, p,s,s1: real; begin write('Введите три стороны треугольника: '); read(a, b, c); p := (a + b + c) / 2; s := sqrt(p * (p - a) * (p - b) * (p - c)); write('Введите три стороны другого треугольника: '); read(a, b ,c); p := (a + b + c) / 2; s1 := sqrt(p * (p - a) * (p - b) * (p - c)); write('Треугольники равновеликие -- ', s = s1) end.
Program D1KPxx13; uses crt; var a1,a2,a3,b1,b2,b3,s1,s2,p1,p2:real; begin readln(a1,a2,a3); p1:=(a1+a2+a3)/2; s1:=p1*(p1-a1)*(p1-a2)*(p1-a3); readln(b1,b2,b3); p2:=(b1+b2+b3)/2; s2:=p2*(p2-b1)*(p2-b2)*(p2-b3); if s1=s2 then writeln('ravnovelikie') else writeln(' ne ravnovelikie'); end.
begin
write('Введите три стороны треугольника: ');
read(a, b, c);
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
write('Введите три стороны другого треугольника: ');
read(a, b ,c);
p := (a + b + c) / 2;
s1 := sqrt(p * (p - a) * (p - b) * (p - c));
write('Треугольники равновеликие -- ', s = s1)
end.
uses crt;
var
a1,a2,a3,b1,b2,b3,s1,s2,p1,p2:real;
begin
readln(a1,a2,a3);
p1:=(a1+a2+a3)/2;
s1:=p1*(p1-a1)*(p1-a2)*(p1-a3);
readln(b1,b2,b3);
p2:=(b1+b2+b3)/2;
s2:=p2*(p2-b1)*(p2-b2)*(p2-b3);
if s1=s2 then
writeln('ravnovelikie')
else writeln(' ne ravnovelikie');
end.