Ответ: а тут можно куда нибудь прлепить FOR или WHILE (ОПЕРАТОРЫ ЦИКЛА)?

Ответ: Вычислить площадь через другие формулы — там синусы, косинусы есть, их можно в ряд Фурье разложить — он как раз через циклы вычисляется))

Ответ: Function S(a,b,c:real):real;Var   p:real;Beginp:=(a+b+c)/2;result:=Sqrt(p*(p-a)*(p-b)*(p-c))End;Var   a,b,c:real;BeginWrite(‘a = ‘);ReadLn(a);Write(‘b = ‘);ReadLn(b);Write(‘c = ‘);ReadLn(c);if (a<b+c)and(b<c+a)and(c<a+b) then WriteLn(‘S = ‘,S(a,b,c))else WriteLn(‘Треугольник не существует’)End.Пример:a = 3b = 4c = 5S = 6