2017.6.4测试题二睡眠

最新推荐文章于 2020-11-30 01:13:41 发布

SSL_lzx

最新推荐文章于 2020-11-30 01:13:41 发布

阅读量610

点赞数 2

分类专栏：竞赛(测试)题

本文链接：https://blog.csdn.net/SSL_lzx/article/details/76794330

版权

竞赛(测试)题专栏收录该内容

59 篇文章 0 订阅

订阅专栏

var
 s,t,ss:string;
 h,hh,m,mm,i,j:longint;
begin
 readln(s);//睡醒~
 ss:=copy(s,1,2);//将小时取出
 val(ss,h);//转成数字
 ss:=copy(s,4,5);//将分钟取出
 val(ss,m);
 readln(t);//睡醒~
 ss:=copy(t,1,2);
 val(ss,hh);
 ss:=copy(t,4,5);
 val(ss,mm);
 if (h<hh) or (h=hh) and (m<mm) then h:=h+24;//判断时候是否睡到明天
 if m<mm then begin//判断是否至少睡了一个小时
               h:=h-1;
               m:=m+60;
              end;
 if (h-hh<10) and (m-mm<10) then writeln(0,h-hh,':',0,m-mm)//不够10之前要输0在前面
                            else if h-hh<10 then writeln(0,h-hh,':',m-mm)//小时不够10~
                                            else if m-mm<10 then writeln(h-hh,':',0,m-mm)//分钟不够10~
                                                            else writeln(h-hh,':',m-mm);//都够了~
end.