Mathematica graphics uses many Options to tailor the plot. You might look up: (Copy the code and evaluate in a notebook.)

Options[Plot] // Column

I'm not certain exactly how you want your plot to look, but here is an attempt.

Plot[Sin[x], {x, \[Pi]/2, 3 \[Pi]/4},
 PlotStyle -> Black,
 PlotRange -> {{\[Pi]/2, 3 \[Pi]/4}, {0, 1}},
 PlotRangePadding -> {0.05, 0.05},
 Frame -> True,
 FrameTicks -> {Automatic, {{{\[Pi]/2, \[Pi]/
      2, {0.0125`, 0}, {Black, AbsoluteThickness[0.25`]}}, {(3 \[Pi])/
      4, (3 \[Pi])/
      4, {0.0125`, 0}, {Black, AbsoluteThickness[0.25`]}}}, {{\[Pi]/2,
       "", {0.0125`, 0}, {Black, AbsoluteThickness[0.25`]}}, {(
      3 \[Pi])/4, 
      "", {0.0125`, 0}, {Black, AbsoluteThickness[0.25`]}}}}},
 BaseStyle -> {FontSize -> 12}]

I actually got the ticks from a routine in my Presentations application, which I sell and you would have to contact me.

CustomTicks[Identity, databased[{\[Pi]/2, 3 \[Pi]/4}]]

giving

{{\[Pi]/2, \[Pi]/
  2, {0.0125, 0}, {GrayLevel[0.], AbsoluteThickness[0.25]}}, {(
  3 \[Pi])/4, (3 \[Pi])/
  4, {0.0125, 0}, {GrayLevel[0.], AbsoluteThickness[0.25]}}}

and

CustomTicks[Identity, databased[{\[Pi]/2, 3 \[Pi]/4}]] // NoTickLabels

which gives Ticks without the tick labels. But you would have to delve into the specifications for Ticks.

?Ticks