PascalABC. дан периметр равностороннего треугольника P. Найти его сторону a площадь S

Question

Информатика

Маина

13 августа, 01:26

PascalABC. дан периметр равностороннего треугольника P. Найти его сторону a площадь S

+3

Ответы (1)

Знаете ответ?

Тима · Answer 1

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