Question

1 найти наибольший из заданных трех элементов 2 выяснить является ли треугольник прямоугольным по заданным трем сторонам (паскаль) даю 35 балов

Answer 1

1. Python

n = list(input())

x = list(input())

b = list(input())

c = n + x + b

print(max(c))

Pascal не знаю :>

Answer 2

1. Для нахождения наибольшего из трех элементов в Pascal можно воспользоваться следующим кодом:

pascalCopy code
program MaxOfThree;

var
  a, b, c, max: Integer;

begin
  writeln('Введите три числа:');
  readln(a, b, c);

  if (a >= b) and (a >= c) then
    max := a
  else if (b >= a) and (b >= c) then
    max := b
  else
    max := c;

  writeln('Наибольшее число: ', max);
end.

2. Для определения, является ли треугольник прямоугольным по заданным трем сторонам (a, b, c), можно использовать следующий код:

pascalCopy code
program IsRightTriangle;

var
  a, b, c: Real;
  maxSide, sumOfSquares: Real;

begin
  writeln('Введите длины трех сторон треугольника:');
  readln(a, b, c);

  // Находим самую длинную сторону
  if (a >= b) and (a >= c) then
    maxSide := a
  else if (b >= a) and (b >= c) then
    maxSide := b
  else
    maxSide := c;

  // Проверяем теорему Пифагора
  if maxSide = a then
    sumOfSquares := b * b + c * c
  else if maxSide = b then
    sumOfSquares := a * a + c * c
  else
    sumOfSquares := a * a + b * b;

  if sumOfSquares = maxSide * maxSide then
    writeln('Треугольник является прямоугольным.')
  else
    writeln('Треугольник не является прямоугольным.');
end.

Обратите внимание, что оценка в 35 баллов к данному коду не относится, так как она не является частью вопроса о наибольшем элементе или прямоугольном треугольнике. Если у вас есть другие вопросы или требования, пожалуйста, уточните, и я буду рад помочь.