Введите три числа. если они могут быть длинами сторон равнобедренного , подскажите как проверить могут ли быть стороны длинами равнобедренного остроугольного треуг. не могу понять , как проверить именно на остроугольный треугольник , в 0.

Впрограмме необходимо последовательно выполнить несколько проверок. 1. можно ли вообще построить треугольник с заданными сторонами? можно, если сумма двух любых сторон больше третьей. 2. равнобедренный ли треугольник? равнобедренный, если из трех заданных сторон две имеют равную длину. 3. остроугольный ли треугольник? треугольник остроугольный, если угол, заключенный между равными сторонами - острый. в самом деле, сумма углов в треугольнике равна 180 градусам, поэтому в равнобедренном треугольнике углы между основанием треугольника и прилегающими к нему равными сторонами всегда острые (если бы они были хотя бы прямыми, сумма только этих двух углов уже бы составила 180 градусов). следовательно, достаточно чтобы угол при вершине равнобедренного треугольника был острым. для удобства обозначим боковые стороны a и b, а основание c. тогда по теореме косинусов имеем: если угол острый, его косинус должен быть положительным, поэтому это и есть условие, определяющее остроугольный равнобедренный треугольник. ниже текст программы на языке pascal.abc, решающей поставленную . var   a, b, c, t: real; begin   write('введите через пробел стороны треугольника: ');   readln(a, b, c);   if (a + b < c) or (a + c < b) or (b + c < a) then       writeln('треугольник построить нельзя')   else begin       if a = c then begin t : = b; b : = c; c : = t end       else if b = c then begin t : = a; a : = c; c : = t end;       if a < > b then writeln('треугольник не равнобедренный')       else       if c * c < 2 * a * a then writeln('треугольник остроугольный')       else writeln('треугольник не остроугольный')   end end. тестовое решение: введите через пробел стороны треугольника: 4 6 6 треугольник остроугольный

Var a, b, c, d : real;         k: integer; begin     read (a, b, c);     k: =0; if b=c then       begin       d: =c;       c: =a;       a: =d;       end;     if a=c then           begin       d: =c;       c: =b;       b: =d;       end;     if (a=b) and (a+b> c)  then inc(k);     if a+b< =c then k: =2;     if k=0 then writeln ('треугольник не равнобедренный');     if k=2 then writeln ('это вообще не треугольник');     if k=1 then              begin            d: =sqrt(a*a+b*b);             if d> c then writeln('остроугольный равнобедренный');       if d< c then writeln('тупоугольный равнобедренный');       if d=c then writeln('прямоугольный равнобедренный');       end; end.p,s, надеюсь на и лучший ответ.

2) тактовая частота, это число тактов выполняемое процессором в ед. времени. разрядность- большей своей частью влияет на производительность компьютера.когда говорят о разрядности процессора к примеру х64, это значит что он обрабатывает 64 бита за такт 3) видеокарта (относится к доп. оборудования)  нужна для воспроизведения графических изображений (т.е. это и есть игры,приложения, интерфейс)  звуковая карта это дополнительное оборудования. оно обрабатывает звук. 4) флешка, dvd-rom, cd-rom, сканер, usb,  5) принтер, монитор, флешка, cd и dvd диски, съёмные носители.

Var    a: array[1..60] of integer;   k,i,min,ind, max,sum: integer; begin   sum: =0;   readln(k);   randomize;   writeln('исходный массив: ');   for i: =1 to 60 do   begin       a[i]: =random(15)-5;     writeln('a[',i,']=',a[i]);     end;   min: =32600;   max: =-32600;   for i: =1 to 60 do //ищем минимальный элемент   begin     if a[i]< min then     min: =a[i];     ind: =i;   end;   for i: =1 to 60 do //ищем максимальный элемент      if a[i]> max then         max: =a[i];   for i: =60 downto 60-k do //сумма последних k  элементов    sum: =sum+a[i];   a[ind]: =sum; if a[1]> =0 then      for i: =1 to 60 do     begin        a[i]: =a[i]*sqr(min);       writeln('a[',i,']=',a[i]);     end   else    for i: =1 to 60 do     begin       a[i]: =a[i]*sqr(max);       writeln('a[',i,']=',a[i]);       end; end.