Viết công thức nhập từ bàn phím tổng số giây(S):in ra giờ,phút,giây Làm pascal

Ý tưởng

Nhập giây chuyển sang giời phút giây 

Vì

1 giờ = 3600 giây 

1 phút = 60 giây

nên chương trình là chia số giây để lấy số  giờ  sau đó còn dư bao nhiêu dây thì chia lấy phút và còn lại là giây

Chương trình

Program tinhsogioPhutgiay;

Uses CRT;

var s,m,h:integer;

BEGIN

Writeln("Nhap so giay");Readln(s);

If s < 60 then Writeln("Ban da nhap ", s," giay");

If (s >= 60) and (s< 3600) then 

begin

m := (s-s mod 60)/60;

s := s mod 60;

Writeln("Ban da nhap ", m," phut",s," giay");

end

Else

begin

h:= (s-s mod 3600)/3600;

m:= ((s mod 3600)-(s mod 3600) mod 60)/60;

s:= s - m *60 - h*3600;

Writeln("Ban da nhap ", h, " gio",m," phut",s," giay");

end;

END.