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

Question

Гаврил

27 сентября, 02:45

+1

Ответы (1)

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

Потап · Answer 1

Var

a:real;

Begin

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

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

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

End.