P1425 小鱼的游泳时间

 P1425 小鱼的游泳时间

题目描述

伦敦奥运会要到了，小鱼在拼命练习游泳准备参加游泳比赛，可怜的小鱼并不知道鱼类是不能参加人类的奥运会的。这一天，小鱼给自己的游泳时间做了精确的计时（本题中的计时都按24小时制计算），它发现自己从a时b分一直游泳到当天的c时d分，请你帮小鱼计算一下，它这天一共游了多少时间呢？小鱼游的好辛苦呀，你可不要算错了哦。

输入输出格式

输入格式：

一行内输入4个整数，分别表示a,b,c,d。

输出格式：

一行内输出2个整数e和f，用空格间隔，依次表示小鱼这天一共游了多少小时多少分钟。其中表示分钟的整数f应该小于60。

输入输出样例

输入样例#1：

12 50 19 10

输出样例#1：

6 20

var 

a,b,c,d,ans1,ans2:longint;

begin

readln(a,b,c,d) ;

if c>=a then ans1:=c-a //判断是否过了一天  

else begin 

ans1:=c+ 12 -a;

if ans1< 0 then ans1:=ans1+ 12 ;

end; 

if d>=b then ans2:=d-b //判断是否过了一个小时

else begin

ans2:=d+ 60 -b;

dec(ans1);

end;

write(ans1, ' ' ,ans2);

end.