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