Программа на Паскаль: Найти радиусы вписанной - вопрос №680666 от bluegirl 28.04.2023 11:16

Question

Другие предметы: Программа на Паскаль: Найти радиусы вписанной и описанной окружностей в правильный треугольник, если известна сторона треугольника

bluegirl · Answer

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.