Загрузка...

Help write a program in pascal

Thread in Programming created by KEDON_inactive58597 Oct 2, 2017. 240 views

  1. KEDON_inactive58597
    KEDON_inactive58597 Topic starter Oct 2, 2017 33 Nov 11, 2016
    Условие : В далёкой стране Числяндии жители одержимы магией чисел. Поэтому они отмечают свой день рождения необычным образом: каждый для себя выбирает определённые числа, которые ему нравятся, отсчитывает от своей даты рождения количество дней, равное этим числам (то есть прибавляет это количество дней), и отмечает свой день рождения в эти дни (за маленьких детей это делают их родители). При этом, естественно, гостей он приглашает на эту дату, только если дата выпадает на субботу или воскресенье. Если же дата выпадает на будний день (с понедельника по пятницу), то гости приглашаются на ближайшую следующую за этой датой субботу. Календарь числяндцы используют обычный грегорианский. Помогите числяндцам - напишите программу, которая по дате рождения числяндца и заданному им количеству дней от рождения для празднования дня рождения вычислит день, на который ему нужно пригласить гостей. В грегорианском календаре месяцы содержат следующее количество дней: январь – 31, февраль – 28 в не високосном и 29 в високосном году, март – 31, апрель – 30, май – 31, июнь – 30, июль – 31, август – 31, сентябрь – 30, октябрь – 31, ноябрь – 30, декабрь – 31. Високосным в грегорианском календаре считаются такие года, номер которых либо делится на 400, либо делится на 4 и не делится на 100 (т.е., например, 1900 год – не високосный, а 2000 – високосный). Дата 1 января 2000 года выпадает на субботу.
     
Top
Loading...