Дана сторона равностороннего треугольника.найти площадь треугольника паскаль

Question

Дана сторона равностороннего треугольника.найти площадь треугольника
паскаль

Comments

var a,s,h,r1,R:real;beginreadln(a);

---

нужно найти только площадь треугольника?

---

да

Answer 1

Площадь равностороннего треугольника через его сторону определяется по известной формуле:


// PascalABC.NET 3.0, сборка 1128
var
  a:real;
begin
  Write('Введите длину стороны треугольника: '); Read(a);
  Writeln('Площадь треугольника равна ',sqrt(3)/4*sqr(a):0:3)
end.

Тестовое решение:
Введите длину стороны треугольника: 3.18
Площадь треугольника равна 4.379

Answer 2

Var
a: integer;
s: real;
begin
  readln(a);
  s:=(sqr(a)*sqrt(3))/4;
  writeln(s);
end.