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

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

  • Var a,b,c:real;
    begin
    writeln (Введите стороны треугольника);
    read (a,b,c);
    if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then
    begin
    if (sqr(a)+sqr(b)=sqr(c)) then writeln (Это прямоугольный треугольник);
    if (sqr(a)+sqr(b)>sqr(c)) then writeln (Это остроугольный треугольник);
    if (sqr(a)+sqr(b)end
    else writeln (Такого треугольника не существует);
    end.
  • Var a,b,c :integer;
    begin
    readln(a,b,c);
    if (a+b > c) and (b+c > a) and (c+a > b) then
    begin
    if (a=b) and (b=c) and(c=a) then
    writeln(Существует Равносторонний)
    else if (a=b)or (b=c) or (c=a) then
    writeln(Существует Равнобедренный)
    else if(a<>b) and (b<>c) and (c<>a) then
    writeln(Существует Разносторонний)
    end
    else
    writeln(Не существует);
    end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *