Question

How to convert milliseconds to minutes and seconds in Pascal

Answer 1

program MillisConverter;

var
  totalMilliseconds : LongInt;
  minutes, seconds  : LongInt;

begin
  totalMilliseconds := 1000000;

  minutes := (totalMilliseconds div 1000) div 60;
  seconds := (totalMilliseconds div 1000) mod 60;

  writeln(totalMilliseconds, ' milliseconds is equal to ',
          minutes, ' minutes and ', seconds, ' seconds.');
end.



(*
run:

1000000 milliseconds is equal to 16 minutes and 40 seconds.

*)

 

70+ SQL courses for beginners and professionals