На этой странице рассматриваются задачи 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 535A **div** B
- целочисленное деление А на В 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 295A **div** B
- целочисленное деление А на В 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 295A **mod** B
- остаток при целочисленном делении А на В 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 295A **mod** B
- остаток при целочисленном делении А на В 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 295A **mod** B
- остаток при целочисленном делении А на ВA **div** B
- целочисленное деление А на В