Pascal :
var a,m,y:integer; begin readln(a); for y:=1 to 100 do for m:=1 to 12 do if (2*m+5)*50+y-365=a then write(y,' ',m); end.
By signing up a 算道OJ universal account, you can submit code and join discussions in all online judging services provided by us.
Using your 算道OJ universal account
