Программа на Паскаль: Найти радиусы вписанной и описанной окружностей в правильный треугольник, если известна сторона треугольника
133
330
Ответы на вопрос:
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.
Популярно: Другие предметы
-
Таисия28130.03.2022 21:57
-
Ismashoma05.09.2020 19:09
-
darialitvinenko12.01.2021 06:47
-
Radon8607.01.2021 08:08
-
AMK52505.03.2020 20:39
-
nastunya2904.01.2021 12:17
-
EmiliKotik12325.01.2023 17:33
-
динозавр77721.11.2021 20:47
-
afver806.01.2022 22:15
-
Ayka55708.01.2022 20:06