elenaklon
Var k1, k2, k3, k4, g12, g34, P12, P34: real; begin readln(k1, k2, k3, k4); g12:=sqrt(sqr(k1)+sqr(k2)); g34:=sqrt(sqr(k3)+sqr(k4)); P12:=k1+k2+g12; P34:=k3+k4+g34; if P12=P34 then writeln (P34:4:2) else if P12>P34 then writeln ('P 1-го больше на ', P12-P34:4:2) else writeln ('P 2-го больше на ', P34-P12:4:2); readln; end.
k1, k2 - катеты 1-го треугольника k3, k4 - катеты 2-го треугольника g12 - гипотенуза 1-го треугольника g34 - гипотенуза 2-го треугольника P12 - периметр 1-го треугольника P34 - периметр 2-го треугольника
Answers & Comments
begin
readln(k1, k2, k3, k4);
g12:=sqrt(sqr(k1)+sqr(k2));
g34:=sqrt(sqr(k3)+sqr(k4));
P12:=k1+k2+g12;
P34:=k3+k4+g34;
if P12=P34 then writeln (P34:4:2)
else if P12>P34 then writeln ('P 1-го больше на ', P12-P34:4:2)
else writeln ('P 2-го больше на ', P34-P12:4:2);
readln;
end.
k1, k2 - катеты 1-го треугольника
k3, k4 - катеты 2-го треугольника
g12 - гипотенуза 1-го треугольника
g34 - гипотенуза 2-го треугольника
P12 - периметр 1-го треугольника
P34 - периметр 2-го треугольника