Question

Идёт n-ая секунда года (31536000)
Определить какой по счёту день, час, минута и секунда. Например: 1536036 секунда от начала года - это 17 дней 18 часов 40 минут 36 секунд. Программа в Pascal

Answer 1

var n:real;

   d,h,m,s:integer;

begin

 while (n <= 0) do Begin

   write('Введите n (n > 0): ');

   read(n);

 end;

 

 

 d := floor( n / ((60 * 60 * 24)) );

 n := n - (60 * 60 * 24)*d;

 

 h := floor( n / (60 * 60) );

 n := n - (60 * 60)*h;

 

 m := floor( n / 60 );

 n := n - (60)*m;

 

 s := floor(n);

 

 write(d+' дней ',h+' часов ',m+' минут ', s+' секунд.');

end.