Дни недели пронумерованы следующим образом 1-понедельник, 2-вторник,3-среда,7-воскресенье.дано целое число лежащее в диапазоне от 1 до 365. определить номер дня недели к-го дня года,если известно, что первое января было вторником.

137

478

Посмотреть ответы 2

Ответы на вопрос:

linakkj

Информатика

4,6(49 оценок)

Внеделе семь дней, поэтому решение выполняется на основе нахождения остатка целочисленного деления от номера дня на 7. такой остаток находится в пределах от 0 до 6, а для нашей нумерации нужны значения от 1 до 7, поэтому полученный остаток будем увеличивать на единицу. если 1 января вторник, то есть день недели с номером 2, то первым понедельником будет 7 января, вторым 14 января и т.д. 1 января (k=1) при делении на 7 даст в остатке 1 и при сдвиге остатка на 1 (см. выше), получим 2 (вторник). 7 января даст остаток 0 и после сдвига получим 1 (понедельник), что и требовалось. 1. современное короткое, эффективное, но требующее определенных знаний решение pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var d: ='понедельник вторник среда четверг пятница суббота воскресенье'.towords; writeln(d[readinteger('введите номер дня') mod 7]) end. примеры введите номер дня 215 суббота введите номер дня 14 понедельник 2. более близкое к выше алгоритму решение begin var n: =readinteger('введите номер дня'); n: =n mod 7+1; case n of 0: writeln('воскресенье'); 1: writeln('понедельник'); 2: writeln('вторник'); 3: writeln('среда'); 4: writeln('четверг'); 5: writeln('пятница'); 6: writeln('суббота') end end. 3. типовое школьное решение var n: integer; begin write('введите номер дня'); read(n); n: =n mod 7+1; case n of 0: writeln('воскресенье'); 1: writeln('понедельник'); 2: writeln('вторник'); 3: writeln('среда'); 4: writeln('четверг'); 5: writeln('пятница'); 6: writeln('суббота') end end.