Программа на Паскаль: Найти радиусы вписанной и описанной - вопрос №681168 от александр199110 27.10.2022 04:07

Question

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

александр199110 · 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.