Каким будет k-й день года - Паскаль, Turbo Pascal, PascalABC.NET

солнышко777 · 05.10.2010, 19:26

здравствуйте

Дано целое число k (1 <= k <= 365). Определить, каким будет k-й день года: субботой, воскресеньем или рабочим днем, если
1 января —понедельник.

заранее спасибо

Mad_Cat · 05.10.2010, 20:02

Код:

l:=k mod 7;
case l of
 6:writeln('saturday');
 0:writeln('sunday')
 else writeln('work day');
end;

XeruH · 06.10.2010, 01:23

Цитата:

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

Код:

l:=k mod 7;

Это ты номер недели узнаешь )

Mad_Cat · 06.10.2010, 04:58

Номер недели это
N:=k div 7;

XeruH · 06.10.2010, 15:29

Цитата:

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

Номер недели это
N:=k div 7;

Да действительно что-то туплю. Однако 1 день в году не всегда понедельник )

Serge_Bliznykov · 06.10.2010, 16:21

Цитата:

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

Да действительно что-то туплю.

немедленно прекращайте!

Цитата:

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

Однако 1 день в году не всегда понедельник )

Точно. Жизнь многообразней!

Однако так поставлено условие исходной задачи.

XeruH · 06.10.2010, 21:55

Цитата:

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

Однако так поставлено условие исходной задачи.

Да что ж такое!!! Все мне пора в отпуск =)

05.10.2010, 19:26	#1
солнышко777 Пользователь Регистрация: 24.06.2010 Сообщений: 17	Каким будет k-й день года здравствуйте Дано целое число k (1 <= k <= 365). Определить, каким будет k-й день года: субботой, воскресеньем или рабочим днем, если 1 января —понедельник. заранее спасибо

05.10.2010, 20:02	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `l:=k mod 7; case l of 6:writeln('saturday'); 0:writeln('sunday') else writeln('work day'); end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

06.10.2010, 04:58	#4
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Номер недели это N:=k div 7; "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача года!!!	Ramis	Microsoft Office Excel	2	24.09.2010 15:27
отображение в поле месяца и года	kate158	Общие вопросы Delphi	4	04.12.2009 12:56
Опредилить, каким днем недели является k-й день невисокосного года	RAVEN23	Паскаль, Turbo Pascal, PascalABC.NET	0	03.06.2009 18:45
определить день недели по заданному числу (считать в месяце 30 дней и первый день месяца понедельник	dan1991	Помощь студентам	1	01.03.2009 20:59