Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var h,m,s:longint;
- f:integer;
- BEGIN
- writeln('');
- read(h,m,s);
- if (h*3600+m*60+s) < 44200 then
- f:=(h*3600+m*60+s) div 120
- else
- f:=360 - (h*3600+m*60+s) div 120;
- write(abs(f));
- END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement