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

Помогите!

Question

Катюня

22 января, 03:46

+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.

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