Program abc; Var p, St, A, B, C, p1 : Real; begin writeln('Площадь треугольника по формуле Герона '); write('Введите стороны треугольника '); readln(A, B, C); if (A+B>C) AND (A+C>B) AND (B+C>A) then begin { Проверить существует ли треугольник с такими сторонами } p := (A + B + C) / 2; { Найти полупериметр треугольника } St := Sqrt(p * (p - a) * (p - b) * (p - c)); { Вычислить площадь } p1 := (A + B + C); { Найти периметр треугольника } writeln('Площадь треугольника ', St:8:5); writeln ('Периметр треугольника ', p1); end else writeln('Треугольник с такими сторонами не существует') end.
["▁▂▃▄▅▆▇","▂▁▂▃▄▅▆","▃▂▁▂▃▄▅","▄▃▂▁▂▃▄","▅▄▃▂▁▂▃","▆▅▄▃▂▁▂","▇▆▅▄▃▂▁","▆▇▆▅▄▃▂","▅▆▇▆▅▄▃","▄▅▆▇▆▅▄","▃▄▅▆▇▆▅","▂▃▄▅▆▇▆"] ["▁▂▃BlockoCraft▄▅▆","▂▁▂BlockoCraft▃▄▅","▃▂▁BlockoCraft▂▃▄","▄▃▂BlockoCraft▁▂▃","▅▄▃BlockoCraft▂▁▂","▆▅▄BlockoCraft▃▂▁","▇▆▅BlockoCraft▄▃▂","▆▇▆BlockoCraft▅▄▃","▅▆▇BlockoCraft▆▅▄","▄▅▆BlockoCraft▇▆▅","▃▄▅BlockoCraft▆▇▆","▂▃▄BlockoCraft▅▆▇"]