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

Помогите!

Question

Изабелла

30 августа, 22:03

+5

Ответы (2)

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

Малаша · Answer 1

Var s, a:real;

begin

writeln ('vvedite storonu treugolnika') ;

readln (a) ;

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

writeln ('S = ', s) ;

readln;

end.

Федюша · Answer 2

В паскале

var

a, b:integer;

begin

readln (a, b) ;

writeln (a*b) ;

end.

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