ответы программы (наименьшее значение из трёх):
1) 0.0828638516274247
2) 0.164832693219929
3) 0.145644125326545
Два текста программы (отличия во вводе икс и нахождения наименьшего):
var
x,a,b,c: real;
begin
write('x= ');
read(x);
a:=Exp(Power(Sin(x),2));
b:=1+Exp(Abs(x))/(1+Ln(Abs(Power(x,1/3;
c:=Tan(x/2)/(2+0.8*Power(x,4));
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
write('min= ');
if a<b then
if a<c then write(a) else write(c)
else
if b<c then write(b) else write(c);
end.
var x,a,b,c: real;
x:=ReadReal('x=');
write('min= ',Min(Min(a,b),c));
ответы программы (наименьшее значение из трёх):
1) 0.0828638516274247
2) 0.164832693219929
3) 0.145644125326545
Два текста программы (отличия во вводе икс и нахождения наименьшего):
var
x,a,b,c: real;
begin
write('x= ');
read(x);
a:=Exp(Power(Sin(x),2));
b:=1+Exp(Abs(x))/(1+Ln(Abs(Power(x,1/3;
c:=Tan(x/2)/(2+0.8*Power(x,4));
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
write('min= ');
if a<b then
if a<c then write(a) else write(c)
else
if b<c then write(b) else write(c);
end.
var x,a,b,c: real;
begin
x:=ReadReal('x=');
a:=Exp(Power(Sin(x),2));
b:=1+Exp(Abs(x))/(1+Ln(Abs(Power(x,1/3;
c:=Tan(x/2)/(2+0.8*Power(x,4));
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
write('min= ',Min(Min(a,b),c));
end.