Составить программу для вычисления площади и периметра равностороннего треугольника

Question

Валентион

27 августа, 00:49

+4

Ответы (1)

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

Ангелинка · Answer 1

Var

a:real;

Begin

Write ('Сторона равностороннего треугольника: ') ; ReadLn (a) ;

WriteLn ('P = ', a*3) ;

WriteLn ('S = ', a*a) ;

End.