Дано действительное число p- периметр равностороннего треугольника. составить программу, которая определяет площадь этого треугольника.

var p: real;

begin

  read(p);

  writeln(0.5*p*p/9*sin(60));

end.

Сегодня уже сложно представить себе жизнь без печатающих устройств. перенести информацию на бумажный носитель время от времени бывает просто необходимо. школьникам нужно распечатывать доклады, студентам – дипломы и курсовые, сотрудникам офисов – документы и договора. существует несколько типов принтеров. отличаются они по принципу печати, формату используемой бумаги, типу печатных материалов и другим признакам. рассмотрим принцип работы двух типов печатающих устройств – лазерного и струйного.принцип работы струйного принтера прежде всего рассмотрим, как же работает струйный принтер. стоит сразу оговориться, что по качеству печати он немного отстает от лазерного. однако и стоимость струйного принтера существенно ниже. данный вид принтера прекрасно подходит для дома. с ним легко обращаться, и он прост в обслуживании.если говорить о принципе работы лазерного и струйного принтеров, то они кардинально отличаются. основное различие состоит в технологии подачи чернил, а также в устройстве аппаратной части. обсудим для начала, как же работает струйный принтер. я не поняла ! ?

//pascal //1 begin writeln((15 div 4)*18); end. //2 var a, b, c: real; begin write('введите стороны треугольника a b c: '); readln(a, b, c); writeln('периметр = ', a + b + c); end. //3 var a, b: real; begin write('введите стороны прямоугольника a b: '); readln(a, b); writeln('площадь = ', a * b); writeln('периметр = ', 2 * (a + b)); end. //4 var a, b, c: real; begin write('введите ребра a, b, c: '); readln(a, b, c); writeln('площадь = ', (2*(a*b+b*c+a*c)): 0: 1); writeln('объем = ', (a*b*c): 0: 1); end. //5 var r: real; begin write('введите радиус: '); readln(r); writeln('длина окружности = ', (2 * pi * r): 0: 1); end.