<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
С задачей, то понятно. Вопрос откуда какой-то КУБЕЙСИК взялся. Это ПРАДЕДУШКА Паскаля.
Function S(a,b,c:real):real;
Var
p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
Var
a,b,c:real;
Begin
Write('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 = 3
b = 4
c = 5
S = 6
1640 секунд примерно, если перевести в минуты, то <span>27 приблизительно!</span>