program TimeConv;
var
mm, m, h: Integer;
begin
Write ('Введите величину временного интервала (в минутах)-> ');
ReadLn (mm);
h := mm div 60;
m := mm mod 60;
WriteLn (mm, ' минут - это ', h, ' ч. ', FormatFloat ('00', m), ' мин.');
ReadLn;
end.
Объяснение:
FormatFloat для лидирующих нулей в минутах: 05
program TimeConv;
var
mm, m, h: Integer;
begin
Write ('Введите величину временного интервала (в минутах)-> ');
ReadLn (mm);
h := mm div 60;
m := mm mod 60;
WriteLn (mm, ' минут - это ', h, ' ч. ', FormatFloat ('00', m), ' мин.');
ReadLn;
end.
Объяснение:
FormatFloat для лидирующих нулей в минутах: 05