1.Viết chương trình nhập từ bàn phím số giây, đổi số giây đó thành giờ, phút, giây VD: 3600 =>1h 0p 0s

0 bình luận về “1.Viết chương trình nhập từ bàn phím số giây, đổi số giây đó thành giờ, phút, giây VD: 3600 =>1h 0p 0s”

1. Program NhatNgu;
   Uses crt;
   Var s: qword;
   Begin
           Clrscr;
           Write(‘Nhap giay: ‘); Readln(s);
           Write(s div 3600,’ gio ‘);
           s:=s mod 3600;
           Write(s div 60,’ phut ‘);
           s:=s mod 60;
           Write(s,’ giay’);
           Readln
   End.

   Bình luận