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

Question

Игораша

23 декабря, 09:27

+3

Ответы (1)

Знаете ответ на вопрос?

Кириллыч · Answer 1

Var

a:real;

Begin

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

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

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

End.