Solutions de l'exercice 5 du TP n°2
(informatique en S1 DEUG MAIS+MASS)
PROGRAM TP2exc5 ;
VAR T, H, M, S : integer ;
BEGIN
repeat
write('temps en secondes (valeurs entières) ? ') ; readln(T) ;
until (T>=0) ;
S:=T mod 60 ;
M:=(T div 60) mod 60 ;
H:=(T div 3600) ;
writeln('temps "HMS" : ',H,'h ',M,'mn ',S, 's.') ;
END.