Агапий
6 год назад
Дні тижня пронумеровані наступним чином: 0 — неділя, 1 — понеділок, 2 — вівторок, …, 6 — субота. Дано ціле число K, що лежить в діапазоні 1-365. Визначити номер дня тижня для K-го дня року, якщо відомо, що цього року 1 січня було понеділком.
ОТВЕТЫ
Baevep
Aug 7, 2019
Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln(n = ,n);
end.
Пример:
34
n = 6
begin
readln(k);
n:=k mod 7;
writeln(n = ,n);
end.
Пример:
34
n = 6
188
Смежные вопросы:
