АЛГОРИТМ ВЫЧИСЛЕНИЯ ПЛОЩАДИ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА. Площадь вычисляется по следующей формуле S=, где P= ;A, B, C размеры сторон треугольника - аргументы;S площадь треугольника - результат;P полупериметр - промежуточная переменная;Проверки:если Aто напечатать "размеры должны быть положительные"всеесли A+B | то печать " нельзя составить треугольник"всеProgram GERON:Uses crt;Var A,B,C:real;BeginCLRSCR; TEXTCOLOR(1);WRITELN(‘ПЛОЩАДЬ ТРЕУГОЛЬНИКА.’);WRITELN(‘ПРОГРАММУ СОСТАВИЛА ИВАНОВА СВЕТА.’);WRITE(‘ВВЕДИТЕ РАЗМЕРЫ ТРЕХ СТОРОН: ’);READLN(A,B,C);IF (ATHEN WRITELN (‘ЕСТЬ ОТРИЦАТЕЛЬНЫЕ РАЗМЕРЫ.’)ELSE IF (A+BTHEN WRITELN(‘РАЗМЕРЫ НЕ ТРЕУГОЛЬНИКА.’)ELSE BEGINP:=(A+B+C)/2;S:=SQRT(P*(P-A)*(P-B)*(P-C));WRITELN(‘ПЛОЩАДЬ РАВНА:’, S);END; End.