1) y:=x-((sqr(x)*x)/3)+((sqr(x)*sqr(x)*x)/5);
2) z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);
3) y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);
4) y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);
Язык программирования Лого был создан Сеймуром Пейпертом (Seymour Papert), Уолласом Фёрцигом (Wallace Feurzeig) и Синтией Соломон (Cynthia Solomon) в 1967 году.
Пишу на QBasic
INPUT N
X=0
DIM A(N)
(массив заполните либо вручную, либо рандомайзер впишите)
C=N\2
FOR I = C TO N
IF A(I)>K THEN
X=X+1
END IF
NEXT I
PRINT X
Var
a,z1,z2:real;
begin
Write('a='); Readln(a);
z1:=Sin(Sqr(a*a))*a-1+2*sqr(Sin(2*a))+Sqr(Cos(a));
z2:=-Sqr(Sqr(Cos(a)));
Writeln('z1=',z1,', z2=',z2);
Readln
end.