в паскале нужно задачи решить
1 Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого). 2. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
1 Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого). 2. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
More Questions From This User See All
Answers & Comments
Ответ:
1)
var
x1, x2, x3, sum:integer;
begin
read(x1, x2 , x3);
sum:= x1 + x2 + x3;
sum:= sum - max(max(x1,x2),x3) - min(min(x1,x2),x3);
write(sum);
end.
2)
var
a, b :integer;
p, hyp:real;
begin
read(a, b);
hyp := sqrt(a*a + b*b);
p := (a*b*0.5);
writeln('Гипотенуза :', hyp , ' Площадь: ', p);
end.
Объяснение: