اطلاع رسانی و برنامه نویسی ویندوز و وب

برنامه پاسكال كه تبديل ثانيه به روز - ساعت - دقيقه و ثانيه ميباشد.

program times;

var intsec, intwa, intro, intmi : longint;

begin
     write(' Input secend : ');
     read(intsec);

     intro := intsec div 86400;
     intwa := (intsec mod 86400) div 3600 ;
     intsec := intsec - ((intro * 86400) + (intwa * 3600));
     intmi := intsec div 60;
     intsec := intsec - (intmi * 60);

     writeln('Tedad Days : ',   intro);
     writeln('Tedad Watch : ',  intwa);
     writeln('Tedad Minits : ', intmi);
     writeln('Tedad Secend : ', intsec);

end.