тема программы
1)найти площадь круга если известен его радиус
2)найти площадь тропеции если известны две основы и высота
3)найти площадь треугольника по трем сторонам (формула j=p*(p-a)*(p-b)*(p-c) вся ормула под корнем)

1

Ответы и объяснения

2014-02-11T19:02:06+04:00
VAR
   r, s: Real;
BEGIN
   Read(r);
   s := pi * r * r;
   Write(s);
END.

VAR
   a,b,h, s: Real;
BEGIN
   Read(a,b,h);
   s := (a + b) * h / 2;
   Write(s);
END.

VAR
   a,b,c,p: Real;
BEGIN
   Read(a,b,c);
   p:= (a + b + c) / 2;

   s := Sqrt(p*(p - a)*(p - b)*(p - c));
   Write(s);
END.