ac1110.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 16 行

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.