Question

ДАЮ 100 БАЛЛОВ!!! Два прямоугольных треугольника заданы своими катетами. Определить, у какого треугольника гипотенуза больше и на сколько? Составить программу(Pascal)

Answer 1

Program triangles;
var a, b, a1, b1, hyp, hyp1:real;
begin
readln(a);
readln(b);
readln(a1);
readln(b1);
hyp:= sqrt(a*a + b*b);
hyp1:= sqrt(a1 + a1 + b1*b1);
if hyp1 > hyp then
writeln(‘У второго треугольника гипотенуза на ’, hyp1 - hyp, ‘ больше чем у первого’);
else:
writeln (‘У первого треугольника гипотенуза на ’, hyp - hyp1, ‘ больше чем у первого’);
end.

Answer 2

Вот этот код верен: Program triangles;
var a, b, a1, b1, hyp, hyp1:real;
begin
readln(a);
readln(b);
readln(a1);
readln(b1);
hyp:= sqrt(a * a + b * b);
hyp1:= sqrt(a1 * a1 + b1 * b1);
if hyp1 > hyp then
writeln('У второго треугольника гипотенуза на ', hyp1 - hyp, ' больше, чем у первого.');
if hyp1 < hyp then
writeln ('У первого треугольника гипотенуза на ', hyp - hyp1, ' больше, чем у второго.');
if hyp1 = hyp then
writeln ('Гипотенузы треугольников равны.');
end.