Предмет: Информатика,
автор: kjlks
Идёт n-ая секунда года (31536000)
Определить какой по счёту день, час, минута и секунда. Например: 1536036 секунда от начала года - это 17 дней 18 часов 40 минут 36 секунд. Программа в Pascal
Ответы
Автор ответа:
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.
Приложения:
Похожие вопросы
Предмет: Геометрия,
автор: sotev9045
Предмет: Математика,
автор: jesdom3361
Предмет: Математика,
автор: adfifa4515
Предмет: Математика,
автор: gvr2
Предмет: Математика,
автор: Askro