|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
24.09.2011, 12:14 | #1 |
Регистрация: 21.09.2011
Сообщений: 6
|
Помогіте с решеніем задачі!
есть число дней!
В недавно открытой звјздной системе k обитаемых планет. Планеты занумерованы от 1 до k, при этом чем меньше номер планеты, тем ближе планета находится к звезде. Календарь на каждой из планет устроен схожим образом: для планеты задано простое число pi ѕоснованиеї календаря. Неделя на каждой планете состоит из 7 дней, называющихся так же, как и на Земле, месяц из pi недель, год из pi месяцев. В календаре существуют также високосные годы. Год является високосным, если его номер де- лится на (pi)3 или же делится на pi , но не делится на (pi)2 . В високосные годы в отличие от земных последняя неделя каждого месяца с простым номером (месяца нумеруются с единицы) состоит из 8 дней после воскресенья снова идјт воскресенье. Длина суток на всех планетах согласована с земной, то есть понятие ѕте же сутки, что и на Землеї корректно определено и имеет смысл. Известно, что когда на земле было 1 января 2000 года, на всех k планетах системы был первый день первого месяца первого года, понедельник. Ваша задача по заданной дате (число, месяц, год) на Земле вычислить, какой день недели будет на каждой из k планет системы. нужно найти и вывести название дня недели для каждой из планет! *********** вот что получилось для невысокосного года: for i:=1 to k do begin g:=h;repeat; if g>7*p[i] then g:=g-7*p[i]; if g>7 then g:=g-7; until g<=7; writeln(n[g]); end; |
24.09.2011, 15:39 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
2 задачі Пожалуста. | DiNis | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 19.01.2009 15:53 |