А) (sqr(x)*2)/5+sin(Pi); либо (sqr(x)*2)/(5+sin(Pi));
Смотря какое выражение было задано.
Б) sin(x)+sqr(sin(x));
В) (x+2)*2/(x+5);
Var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(abs(2016-x) )mod 12;
write(a[y]);
end.
Вроде должно работать. Проверить не могу - сижу с телефона
//Z(x)=cos(2x)sin(x),если переменная х меняется в интервале [-5;5] с шагом hx=0.345
PROGRAM B07;
CONST
min=-5;
max=5;
hx=0.345;
VAR
x,z,k:real;
BEGIN
x:=min;
while (x<=max) do begin
writeln ('x=', x:6:3, ' ', cos(2*x)*sin(x), ' ' );
x:=x+hx;
end;
END.
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.