Question

В паскале нужно задачи решить 1 Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого). 2. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.​

Answer 1

Ответ:

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.

Объяснение:

Answer 2

Конечно, я могу помочь вам с решением этих задач на языке Pascal. Вот решения:

1. Найти среднее из трех чисел:

pascalCopy code
program FindMiddleNumber;
var
  num1, num2, num3, middle: integer;
begin
  writeln('Введите три разных числа: ');
  readln(num1, num2, num3);
  
  // Проверяем, какое число является средним
  if (num1 > num2) and (num1 < num3) or (num1 < num2) and (num1 > num3) then
    middle := num1
  else if (num2 > num1) and (num2 < num3) or (num2 < num1) and (num2 > num3) then
    middle := num2
  else
    middle := num3;
    
  writeln('Среднее число: ', middle);
  readln;
end.

2. Найти гипотенузу и площадь прямоугольного треугольника:

pascalCopy code
program RightTriangle;
var
  a, b, c, area: real;
begin
  writeln('Введите длины катетов прямоугольного треугольника: ');
  readln(a, b);
  
  // Находим гипотенузу по теореме Пифагора
  c := sqrt(a*a + b*b);
  writeln('Гипотенуза: ', c);
  
  // Находим площадь треугольника по формуле S = (a * b) / 2
  area := (a * b) / 2;
  writeln('Площадь треугольника: ', area);
  readln;
end.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.