Напишите алгоритм:

program pr;
var a,r,rr,h,s: real;

begin
write('введите длину стороны треугольника');
readln(a);
r: =sqrt(3)*a/6;
rr: =2*r;
h: =3*r;
s: =a*h/2;
writeln('радиус вписанной окружности',r);
writeln('радиус описанной окружности',rr);
writeln('высота треугольника',h);
writeln('площадь треугольника',s);
end.

настя7590    3   20.12.2019 14:06    0