ac1110.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1110;
var
  s:string;
  a,b,c,d:longint;
begin
  repeat
    readln(s);
    a:=(ord(s[1])-48)*10+ord(s[2])-48;
    b:=(ord(s[4])-48)*10+ord(s[5])-48;
    c:=(ord(s[7])-48)*10+ord(s[8])-48;
    d:=abs(30*(a mod 12*3600+b*60+c)-360*(b*60+c));{angle in seconds}
    if d>648000 then d:=1296000-d;
    writeln(d div 3600,'^',d div 60 mod 60,'''',d mod 60,'"');
  until seekeof;
end.