profile
Опубликовано 4 года назад по предмету Информатика от Крысатул

Даны три стороны треугольника .определить существует ли треугольник с заданными сторонами,если да ,то определить является ли он прямоугольным,равнобедренным или равносторонним,какой треугольник тупоугольный или остроугольный.

  1. Ответ
    Ответ дан Sky09

    Program treug;

    var a,b,c,max,min,srd,d:real;

    begin

    writeln('Введите стороны треугольника');

    readln(a,b,c);

    If (a+b>c) or (b+c>a) or (a+c>b) then

    begin

    if (a=b) or (b=c) or (a=c) then write ('Треугольник равнобедренный');

    if (a=b) and (b=c) then write ('Треугольник равносторонний');

    end;

    begin  

    Sort(a,b,c,max,min,srd);  

    d:=min*min+srd*srd;  

    e:=max*max;  

    if d>e then writeln('Это остроугольный треугольник!')  

    else if d<e then writeln('Это тупоугольный треугольник!')  

    else if d=e then writeln('Это прямоугольный треугольник!');  

    end;

    else writeln ('Такого треугольника не существует');

    end.


Самые новые вопросы