В минуте 60 секунд. 1) Разделить число на 3600.Получим .целое число означает текущий час. Если из задонного числа вычесть получившееся целое число умноженное на 3600 получим число секунд в текущих минутах. 2)это число необходимо разделить на 60. Целое число будет означать текущую минуту. 3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду.
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;
begin var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println; var k:=ReadInteger('Введите границу отсечения элементов:'); Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k)) end.
Пример n= 17 -50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52 Введите границу отсечения элементов: 23 Количество элементов, меньших 23, равно 11
1) Разделить число на 3600.Получим .целое число означает текущий час.
Если из задонного числа вычесть получившееся целое число умноженное на 3600 получим число секунд в текущих минутах.
2)это число необходимо разделить на 60. Целое число будет означать текущую минуту.
3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду.
Например
Задано число 66276.
часов.
18 * 3600 = 64800
66276 - 64800 = 1476
минуты.
24 * 60 = 1440
1476 -1440 = 36
ответ: 18 часов , 24 минуты, 36 секунд.