Calculate entropy charge
`H_(2)O(l,1 atm, 100^(@)C)` rarr `H_(2)O(g, 1" "atm, 110^(@))`
`H_(2)O(l, 2" "atm, 100^(@))`rarr `H_(2)O(g, 2" "atm, 100^(@))`
`DeltaH_(vap)=40kJ//"mole"`" "`C_(p)(l)=75J//"mole"//K`" "`C_(p)(g)=35 J//"mole"//K`

Explanation

`underset((A))(H_(2)O(l, 2 atm, 100^(@)C))to underset((B)) (H_(2)O(g, 1 atm,100^(@) C)) to underset((C))(H_(2) O(g, 2 atm, 100^(@)C))`
`DeltaS_(A to B)=(DeltaH_("vap"))/(T)= (40xx1000)/(373)`
`DeltaS_(B to C) n Rln .(P_(2))/(P_(1))= 1 xx R ln .(1)/(2)`