Question

Напишите пжалуйста программу в турбо паскале))..Вводятся 3 целых числа A, B и C, представляющие собой длины сторон треугольника. Вывести сообщение о том, является ли треугольник прямоугольным.

Answer 1

Uses crt;
var
a,b,c:integer;
begin
clrscr;
writeln('a,b,c ?');
readln(a,b,c);
if (sqr(a)+sqr(b)=sqr(c))or(sqr(a)+sqr(c)=sqr(b))or(sqr(b)+sqr(c)=sqr(a))then
   writeln('Y')
else
   writeln('N');
readkey
end.

Answer 2

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

program TriangleCheck;

var
  A, B, C: Integer;

begin
  // Ввод длин сторон треугольника
  WriteLn('Введите длины сторон треугольника:');
  Write('A: ');
  ReadLn(A);
  Write('B: ');
  ReadLn(B);
  Write('C: ');
  ReadLn(C);

// Проверка условия прямоугольности треугольника
  if (A * A = B * B + C * C) or (B * B = A * A + C * C) or (C * C = A * A + B * B) then
    WriteLn('Треугольник является прямоугольным.')
  else
    WriteLn('Треугольник не является прямоугольным.');

ReadLn;
end.

Эта программа принимает ввод от пользователя в виде трех целых чисел, представляющих длины сторон треугольника. Затем она проверяет, является ли треугольник прямоугольным, сравнивая суммы квадратов двух меньших сторон с квадратом самой большой стороны. Если это условие выполняется хотя бы для одной комбинации сторон, программа выводит сообщение о том, что треугольник является прямоугольным. В противном случае, программа выводит сообщение о том, что треугольник не является прямоугольным.

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