Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
gridass
0 / 0 / 5
Регистрация: 14.10.2014
Сообщений: 33
#1

Определить, каким будет K-й день года: субботой, воскресеньем или рабочим днем, если 1 января – понедельник - Pascal ABC

26.11.2014, 23:52. Просмотров 555. Ответов 1
Метки нет (Все метки)

4.а
Дано целое число k(1<=k<=365). Определить, каким будет K-й день года: субботой, воскресеньем или рабочим днем, если 1 января – понедельник.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2014, 23:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, каким будет K-й день года: субботой, воскресеньем или рабочим днем, если 1 января – понедельник (Pascal ABC):

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

Определить номер дня недели N для K-го дня года, если известно, что 1 января был понедельник
Здравствуйте. Не могу никак решить казалось бы очень простую задачку на...

Опредилить, каким днем недели является k-й день невисокосного года
Дано целое число k(1&lt;=k&lt;=365). Опредилить, каким днем недели (понедельником,...

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

Определить, каким днем недели день с заданным номером в году.
Здравствуйте помогите пожайлуста. Дан К день некоторого года. Определить,...

Найти номер дня недели К-го дня года, если в этом году 1 января было днем недели с номером N
Дни недели пронумерованы следующим образом: 0 - воскресенье, 1 - понедельник, 2...

1
Sergio Leone
2462 / 1107 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
27.11.2014, 00:09 #2
Лучший ответ Сообщение было отмечено gridass как решение

Решение

так:
Pascal
1
2
3
4
5
6
7
Const
     Days:array[0..6] of string [11] = ('ÂîñêðåñåГ*ГјГҐ','ГЏГ®Г*åäåëüГ*ГЁГЄ','ÂòîðГ*ГЁГЄ','ÑðåäГ*','×åòâåðã','ГЏГїГІГ*ГЁГ¶Г*','ÑóááîòГ*');
Var K:integer;
Begin
 Readln(K);
 WriteLn(Days[K mod 7]);
End.
Добавлено через 2 минуты
такая задача уже решалась. см.

http://www.cyberforum.ru/pascalabc/thread229720.html

http://www.cyberforum.ru/pascalabc/thread774701.html
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2014, 00:09
Привет! Вот еще темы с решениями:

определить день недели понедельник,вторник,суббота или воскресенье
Дано целое число k (1 больше или равно k меньше или равно 365). Определить,...

Определить каким днём недели является k-й день года
Дано целое число k (1&lt;=k&lt;=365). Определить каким днём недели...

Определить, каким днем недели является дата, заданная в виде число, месяц
Здравствуйте, уважаемые программисты! помогите решить задачку! Определить,...

Определить самый холодный день января и дни, когда был мороз
Даны показатели температуры воздуха ежедневно января. Определить САМЫЙ ХОЛОДНЫЙ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru