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.

Answer 2

Для определения какой по счету день, час, минута и секунда соответствует n-ой секунде года, можно использовать следующую программу на языке Pascal:

pascalCopy code
program SecondsToTime;

var
  n: Integer;
  days, hours, minutes, seconds: Integer;

begin
  { Введите значение n (n-ая секунда года) }
  Write('Введите количество секунд n: ');
  ReadLn(n);

  { Рассчитываем значения дней, часов, минут и секунд }
  days := n div 86400;       { 86400 секунд в сутках (60 секунд * 60 минут * 24 часа) }
  n := n mod 86400;
  
  hours := n div 3600;       { 3600 секунд в часе (60 минут * 60 секунд) }
  n := n mod 3600;
  
  minutes := n div 60;       { 60 секунд в минуте }
  seconds := n mod 60;

  { Выводим результат }
  WriteLn(n, ' секунда от начала года - это ', days, ' дней ', hours, ' часов ', minutes, ' минут ', seconds, ' секунд.');
end.

Программа запрашивает значение n (количество секунд), затем рассчитывает количество дней, часов, минут и секунд, соответствующих этому значению, и выводит результат на экран.