Количество прошедших минут и секунд

На этой странице рассматриваются задачи Integer19 - Integer23 из задачника Абрамяна, где решаем элементарные задачи связанные со временем: количество прошедших минут с начала суток, число прошедших секунд с начала последнего часа и т.п.

Integer19. С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала суток.

var
  N: word;

begin
  write('N = ');
  readln(N); { <-- Вводим количество секунд }
  { 1 секунда = 1/60 минуты;
    N секунд = N/60 минут }
  N := N div 60; { <== количество полных минут }
  writeln('Количество полных минут: ', N);
  readln
end.

**type** word;: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535

**type** word;: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535

Integer20. С начала суток прошло N секунд (N — целое). Найти количество полных часов, прошедших с начала суток.

var
  N: longword;

begin
  write('N = ');
  readln(N); { <-- Вводим количество секунд }
  { 1 час = 60 минут, 1 минута = 60 секунд. Тогда:
    1 час = 60·60 = 3600 секунд;
    1 секунда = 1/3600 часа;
    N секунд = N/3600 часов }
  N := N div 3600; { <== количество полных часов }
  writeln('Количество полных часов: ', N);
  readln
end.

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

Integer21. С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последней минуты.

var
  N: longword;

begin
  write('N = ');
  readln(N);
  { Поскольку в минуте 60 секунд, а последняя минута ещё не 
  прошла, то количество прошедших с начала последней минуты 
  секунд равно остатку от деления на 60, поскольку это то 
  число секунд, которое не превышает 60: }
  writeln('Ответ: ', N mod 60);
  readln
end.

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

Integer22. С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последнего часа.

var
  N: longword;

begin
  write('N = ');
  readln(N);
  { Поскольку в 1 часе 3600 секунд, а последний час ещё 
  длится, то находим остаток от деления N на 3600: }
  writeln('Ответ: ', N mod 3600);
  readln
end.

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

Integer23. С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала последнего часа.

var
  N: longword;

begin
  write('N = ');
  readln(N);
  { Сначала находим количество секунд, прошедших 
  с начала последнего часа: для этого вычисляем 
  остаток от деления на 3600: }
  N := N mod 3600; { <== количество прошедших секунд }
  { Поскольку в 1 минуте 60 секунд, то количество полных минут
  в оставшихся секундах равно целой части при делении N на 60:}
  N := N div 60; { <== количество полных минут }
  writeln('Ответ: ', N);
  readln
end.

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295

**type** longword;: Представляет 32-битовое целое число без знака.Диапазон значений: 0 .. 4 294 967 295