<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.
Легко но не знаю !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Они отличаются тем что переменной длины она работает но будет работать постоянно.
Технология ( урок) по другому труд