Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, ba

0 bình luận về “Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, ba”

1. uses crt;
   var gio,phut,giay,x: longint; 
   begin
      clrscr;
      write(‘Nhap vao so giay: ‘); readln(x); 
      gio:= x div 3600;
      x:=x mod 3600; 
      phut:=x div 60; 
      x:=x mod 60;
      writeln(‘Ket qua = ‘, gio,’ gio : ‘, phut, ‘ phut : ‘, x, ‘ giay’);
      readln
   end.

   Bình luận

2. uses crt;
   var gio,phut,giay,x: longint; 
   begin
   clrscr;
   write(‘Nhap vao so giay: ‘); readln(x); 
   gio:= x div 3600;
   x:=x mod 3600; 
   phut:=x div 60; 
   x:=x mod 60;
   writeln (x,’ giay bang: ‘,gio,’ gio / ‘,phut,’ phut / ‘,x,’ giay’);
   readln;
   end.

   Bình luận