Найдите площадь равностороннего треугольника(длины сторон вводятся с клавиатуры)...

Question

Найдите площадь равностороннего треугольника(длины сторон вводятся с клавиатуры)
Помогите!!!!

Answer 1

В паскале
var
 a,b:integer;
begin
 readln(a,b);
 writeln(a*b);
end.

Comments

Соре, прямоугольника прочитал

Answer 2

Var s,a:real;
begin
writeln('vvedite storonu treugolnika');
readln(a);
s:=(sqrt(a)/4)*sqr(a);
writeln('S = ' , s);
readln;
end.