Question

Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và iế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, bao nhiêu giây.

Answer 1

Program doi_gio_phut_giay;

Uses crt;

Var gio, phut,giay, x:longint;

Begin

Clrscr;

Writeln('doi sang gio phut giay');

Write('nhap vao so giay: ');readln(x);

gio:= x div 3600;

x:=x mod 3600;

phut:=x div 60;

x:=x mod 60;

Write('ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay');

Readln

End.

Answer 2