1. X - (sqr(X) / 3) + (sqr(X) / 5);
2. i * n * abs(cos(X)) / i * n * (1 + sqr(X)) = abs(cos(X)) / (1 + sqr(X));
3. (sqr(X) - 7 * X + 10) / (sqr(X) - 8 * X + 12).
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
Ответ:
Наприклад обертання фото або якигось об'єктів або виставлення звуку
№6
var
a,b,c:real;
begin
Read(a,b);
if a>=b then begin
c:=a+b;
while c<=36 do c:=c+8;
c:=c+29
end
else begin
c:=2*b+a;
c:=4*c;
c:=c+30;
c:=c/2
end;
Writeln(c)
end.
№7
var
a,b,c:real;
begin
Read(a,b);
if a>b then begin
while a+1>2*b do b:=b+1;
c:=a+2*b; c:=c+127; c:=c-94
end
else begin
c:=2*a+b;
if c<=14 then begin c:=c+137; c:=2*c-89 end
else begin c:=c+127; c:=c-94 end
end;
Writeln(c)
end.