Определить номер дня недели для заданного номера дня года

@Lost_fk · Регистрация: 15.09.2013

Студворк — интернет-сервис помощи студентам

Дано целое число k (1<=k<=365). Присвоить целочисленной величине n значение 1, 2, ... , 6 или 0 в зависимости от дня недели ( пон, вт, ср, ... , воскр.) приходится k-й день года в котором 1 янв:
а) понедельник
б) вторник
в) d-й день недели ( если 1 января - понедельник, то d=1, если вторник, то d=2..... d=7)

люди добрые , помогите пожалуйста

@Puporev · 12.02.2014, 17:41

если 01.01 понедельник

Pascal

case k mod 7 of
1:write('понедельник');
2:write('вторник');
3:и т.д
4:
5:
6:
0:
end;

если вторник

Pascal

case k mod 7 of
1:write('вторник');
2:write('среда');
3:и т.д
4:
5:
6:
0:
end;

так для любого

@Lost_fk · 12.02.2014, 17:45 **[ТС]**

возможно у меня не отображается как для любого, можете еще раз отправить?

@Puporev · 12.02.2014, 17:47

А ничего и не должно отображаться, я просто написал

Сообщение от Puporev

так для любого

Тебе что для среды,четверга и т.д писать?

Сам немного думай.

@Lost_fk 0 / 0 / 0 Регистрация: 15.09.2013 Сообщений: 23
		1
	Определить номер дня недели для заданного номера дня года 12.02.2014, 16:58. Показов 2084. Ответов 3 Метки нет (Все метки) Дано целое число k (1<=k<=365). Присвоить целочисленной величине n значение 1, 2, ... , 6 или 0 в зависимости от дня недели ( пон, вт, ср, ... , воскр.) приходится k-й день года в котором 1 янв: а) понедельник б) вторник в) d-й день недели ( если 1 января - понедельник, то d=1, если вторник, то d=2..... d=7) люди добрые , помогите пожалуйста 0

@Lost_fk 0 / 0 / 0 Регистрация: 15.09.2013 Сообщений: 23
	12.02.2014, 17:45 [ТС]	3
	возможно у меня не отображается как для любого, можете еще раз отправить? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	12.02.2014, 17:47	4
	А ничего и не должно отображаться, я просто написал Сообщение от Puporev так для любого Тебе что для среды,четверга и т.д писать? Сам немного думай. 1

Опции темы