Question

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

Answer 1

Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.

Пример:
34
n = 6