Код
Program 21;
uses crt;
const
x=0.00671e5;
y=-0.6023;
var
F,Z,A,B,C,D:real;
begin
clrscr;
C:=ArcTan(-z/x);
A:=Ln(c)/Ln(10);
Z:=sqrt(Abs(2-Pi));
B:=((1/a+z))+((x-y)/100);
F:=Exp(ln(a)/3)+Exp(b*Ln(2));
D:=Sin(F)/cos(F);
WriteLn(D:5:5);
ReadLn;
end.
uses crt;
const
x=0.00671e5;
y=-0.6023;
var
F,Z,A,B,C,D:real;
begin
clrscr;
C:=ArcTan(-z/x);
A:=Ln(c)/Ln(10);
Z:=sqrt(Abs(2-Pi));
B:=((1/a+z))+((x-y)/100);
F:=Exp(ln(a)/3)+Exp(b*Ln(2));
D:=Sin(F)/cos(F);
WriteLn(D:5:5);
ReadLn;
end.
Error 207