Advertisement
Jater

Nikita_degree_on_time1

Nov 27th, 2012
133
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.20 KB | None | 0 0
  1. var h,m,s:longint;
  2. f:integer;
  3.  
  4. BEGIN
  5.     writeln('');
  6.     read(h,m,s);
  7.     if (h*3600+m*60+s) < 44200 then
  8.         f:=(h*3600+m*60+s) div 120
  9.     else
  10.         f:=360 - (h*3600+m*60+s) div 120;
  11.     write(abs(f));
  12. END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement