Question

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

Answer 1

Program treug;
var a,b,c:integer;
label l1,l2;
begin
l1:
writeln ('Укажите стороны треугольника:'); read (a,b,c);
if (a<=0) or (b<=0) or (c<=0) then begin 
writeln ('Проверьте правильность введенных данных'); goto l1;
end;
if (a=b) and (a=c) and (b=c) then begin
writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end;
if (a=b) or (a=c) or (b=c) then begin
writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2;
end;
writeln ('Треугольник с указанными параметрами - разносторонний');
l2:
end.

Answer 2

Программа на Pascal, которая проверяет, могут ли три введенных числа быть сторонами треугольника, и если да, определяет его тип:

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.

После запуска программы необходимо ввести три числа. Программа проверит, могут ли эти числа быть сторонами треугольника, и если да, определит его тип (равносторонний, равнобедренный, разносторонний).