PascalABC .дан периметр равностороннего треугольника P.Найти его сторону a площадь S
PascalABC .дан периметр равностороннего треугольника P.Найти его сторону a площадь S
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы