Розв’язок задачі з Абрамова №12

Всі умови | Умова: Дана сторона рівностороннього трикутника. Pнайти площа цього трикутника. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №12)

program Pr12;
var
   a, S : real;
begin
   readln(a);
   S := sqrt(3) / 4 * sqr(a);
   writeln('S = ', S:10:2);
   readln;
end.