Question

Viết chương trình nhập vào tổng số giây .Đổi sang x giờ ,y phút, z giây:

8950s= 2 giờ 29 phút 10 giây

Answer 1

Bạn tham khảo chương trình mẫu này nhé:

Program DOI_GIO_PHUT_GIAY;

Uses crt;

Var gio, phut, giay, n: longint;

Begin

Clrscr;

Writeln('DOI SANG GIO PHUT GIAY');

Writeln('--------------------------------------');

Write('Nhap vao so giay: '); readln(n);

gio:= n div 3600;

n:=n mod 3600;

phut:=n div 60;

n:=n mod 60;

Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', n, 'giay');

Readln;

End.