Составить программу на языке pascal -вычислить s,r,r,p - вопрос №2786435 от лялялятраляляля1 06.03.2020 13:16

Question

Информатика: Составить программу на языке pascal -вычислить s,r,r,p равностороннего треугольника, а-сторона. , нужно!

лялялятраляляля1 · Answer

Uses crt;var a:integer;    S,R,r2,P:real;begin  write ( Введите сторону a: );  readln (a);  S:=((a*a)*sqrt(3))/4;  R:=(a*sqrt(3))/3;  P:=3*a;  r2:=(a*sqrt(3)/6);  writeln ( Площадь равностороннего треугольника: ,S:1:2);  writeln ( Радиус описанной вокруг равностороннего треугольника окружности  ,R:1:2);  writeln ( Радиус вписанной в равносторонний треугольник окружности: ,r2:1:2);  writeln ( Периметр равностороннего треугольника: ,p:1:2);end....