Question

Написать программу для нахождения периметра и площади равностороннего треугольника.(в pascal)

Answer 1

var a:real;
begin
writeln('Введите сторону треугольника: ');
readln(a);
writeln('Периметр: ',3*a);
writeln('Площадь ',sqrt(3)*a*a/4);
end.