Đọc từ file input thời gian 1 công việc nào đó là x giây.Hãy chuyển đổi và ghi ra file output số thời gian trên dưới dạng bằng bao nhiêu giờ,phút,giây.(Lập trình Pascal,sử dụng hàm Const)

Tôi giả định rằng file input chứa một số nguyên duy nhất là số giây của công việc.

Đáp Án:

`* Pascal:`

`" "`

program conversion_du_temps;
uses crt;
const temps = 60;
var x, heure, minute, seconde : longint;
    fer, ouv : text;

begin
    clrscr;
    assign(ouv, 'input');
    reset(ouv);
    
    assign(fer, 'output');
    rewrite(fer);
    
    read(ouv, x);
    heure := x div (temps * temps);
    minute := (x - heure * temps * temps) div temps;
    seconde := x - heure * temps * temps - minute * temps;
    
    write(fer, heure, ' ', minute, ' ', seconde);
    
    close(fer);
    close(ouv);
end.