Integer27. Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, …, 6 — суббота, 7 — воскресенье. Дано целое число $$K$$, лежащее в диапазоне 1–365. Определить номер дня недели для $$K$$-го дня года, если известно, что в этом году 1 января было субботой.
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Integer27; var K,D: Integer; begin Write('Введите день этого года: '); Readln(K); D:=((K+ 4) mod 7)+1; Writeln('День недели : ',D); end. |
Другие задачи из раздела Integer можно посмотреть здесь.
Комментарии: