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

Помогите!

Question

Инна

8 сентября, 06:12

+5

Ответы (2)

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

Декабриныч · Answer 1

В паскале

var

a, b:integer;

begin

readln (a, b) ;

writeln (a*b) ;

end.

Лаврентьич · Answer 2

Var s, a:real;

begin

writeln ('vvedite storonu treugolnika') ;

readln (a) ;

s: = (sqrt (a) / 4) * sqr (a) ;

writeln ('S = ', s) ;

readln;

end.

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