Вопрос, который вызвал трудности
Программа на Паскаль: Найти радиусы вписанной и описанной окружностей в правильный треугольник, если известна сторона треугольника
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program radius;
Uses crt;
Var a, ro, rv: real;
Begin
writeln (‘введите сторону треугольника’);
read (a);
ro:= a*sqrt(a)/3;
rv:= a*sqrt(a)/6;
writeln( ‘ радиус описанной окружности равен ’, ro);
writeln( ‘ радиус вписанной окружности равен ’, rv);
readkey
end.
Uses crt;
Var a, ro, rv: real;
Begin
writeln (‘введите сторону треугольника’);
read (a);
ro:= a*sqrt(a)/3;
rv:= a*sqrt(a)/6;
writeln( ‘ радиус описанной окружности равен ’, ro);
writeln( ‘ радиус вписанной окружности равен ’, rv);
readkey
end.