Question

Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний). Паскаль , помогите плиз! 29 баллов

Answer 1

Ответ:

var a,b,c,z:integer;

begin

readln(a, b, c);

z:=0;

if (a > b) and (a > c) then begin

   z:= b+c;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник');

end

else if (b > a) and (b > c) then begin

   z:= a+c;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник');

end

else if (c > a) and (c > b) then begin

   z:= b+a;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник')

end

else if (a = b) and (a = c) then

   write('Это равностороний треугольник')

else write('Это равнобедренный треугольник');

end.

Объяснение:

Answer 2

Конечно, я помогу вам написать программу на языке Паскаль, которая определит, существует ли треугольник с данными длинами сторон и если да, то какого типа он является (равносторонний, равнобедренный, разносторонний). Вот пример кода:

pascalCopy code
program TriangleType;

var
  a, b, c: Integer;

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

  // Проверка на существование треугольника
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    // Определение типа треугольника
    if (a = b) and (b = c) then
      writeln('Треугольник равносторонний')
    else if (a = b) or (a = c) or (b = c) then
      writeln('Треугольник равнобедренный')
    else
      writeln('Треугольник разносторонний');
  end
  else
    writeln('Треугольник с такими сторонами не существует');
end.

Вы можете сохранить этот код в файл с расширением .pas (например, TriangleType.pas), скомпилировать его с помощью компилятора Pascal (например, Free Pascal) и запустить полученный исполняемый файл. После запуска программы, она запросит у вас длины трех сторон треугольника и выдаст результат: существует ли треугольник, и если да, то какого типа он является.