Решение задач. День седьмой. Задачи Integer21-25

Мы снова решаем задачи. На этот раз всего лишь  Integer21-25.

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

Program Integer_21;

var n, sec: integer;

begin
  write('Введите количество секунд N: ');
  readln(n);
  sec := n mod 60;
  writeln('Количество секунд, прошедших с начала последней минуты: ', sec);
end.

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

Program Integer_22;

var n, sec: integer;

begin
  write('Введите количество секунд N: ');
  readln(n);
  sec := n mod 3600;
  writeln('Количество секунд, прошедших с начала последнего часа: ', sec);
end.

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

Program Integer_23;

var n, min: integer;

begin
  write('Введите количество секунд N: ');
  readln(n);
  min := n mod 3600 div 60;
  writeln('Количество полных минут, прошедших с начала последнего часа: ', min);
end.

Integer24. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было понедельником.

Program Integer_24;

var k, number: integer;

begin
  write('Введите день года: ');
  readln(k);
  number := k mod 7;
  writeln('Номер дня недели: ', number);
end.

Integer25. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было четвергом.

Program Integer_25;

var k, number: integer;

begin
  write('Введите день года: ');
  readln(k);
  number:= (k+3) mod 7;
  writeln('Номер дня недели: ', number);
end.