Лиодор
7 год назад
PascalABC .дан периметр равностороннего треугольника P.Найти его сторону a площадь S
ОТВЕТЫ
Демьянович
Jul 19, 2019
Var p,a,s:real;
begin
write(p = );
readln(p);
a:=p/3;
s:=a*a*sqrt(3)/4;
writeln(a = ,a:5:2, s = ,s:5:2);
end.
Пример:
p = 9
a = 3.00 s = 3.90
begin
write(p = );
readln(p);
a:=p/3;
s:=a*a*sqrt(3)/4;
writeln(a = ,a:5:2, s = ,s:5:2);
end.
Пример:
p = 9
a = 3.00 s = 3.90
216
Смежные вопросы:
