Programming Code Examples

var result1,result2,result,m,h:longint; begin readln(h,m); result1:=(180+H60)/11-M; {Ð° Ð¼Ð¾Ð¶ÐµÑ‚ Ð±Ñ‹Ñ‚ÑŒ Ð¸ Ñ‚Ð°Ðº: result1:=abs((180+H60)/11-M)}; result2:=DeltaM=(H60-180)/11-M; {Ð°Ð½Ð°Ð»Ð¾Ð³Ð¸Ñ‡Ð½Ð¾} result:=result1byte(result1<result2)+result

pascal Live Demo Short URL - http://tpcg.io/3SKSd9

pascal Live Demo Short URL - http://tpcg.io/2c3aWq

pascal Live Demo Short URL - http://tpcg.io/3P8NXf

pascal Live Demo Short URL - http://tpcg.io/0bSVeg

pascal Live Demo Short URL - http://tpcg.io/8ZxL0x

pascal Live Demo Short URL - http://tpcg.io/czHVzG

pascal Live Demo Short URL - http://tpcg.io/dVmBQp

pascal Live Demo Short URL - http://tpcg.io/6qcLH3

pascal Live Demo Short URL - http://tpcg.io/9mir0C

pascal Live Demo Short URL - http://tpcg.io/Ekb58V