Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
DoblemM

Определить количество понедельников в году, приходящихсяна 13-е числа.

06.12.2009, 18:30. Показов 2065. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброе время суток !
Вот интересная задачка,кто может помогите пожалуйста.

type число=1..31;
месяц=(янв,фев,мар,апр,май,июн,нюл, авг.сен.окт,ноя,дек);
деньнеделн=(вс,пн,вт,ср.чт.пт.сб);
var d:число; m:месяц; wdl.wd: деньнедели;
k:O..12;
Считая, что год невисокосный и его 1 январи приходится на день недели wd1, определить:
k—количество понедельников в году, приходящихсяна 13-е числа.


и вот вторая задачка,кому не сложно обратите внимание.

const n=80;
type цифра=0..9;
число = array [1..n] of цифра;
var а,b,с: число; t: boolean;
Рассматривая а и b как последовательности цифр десятичной записи некоторых неотрицательных целых чисел, получить с — аналогичное представление для суммы этих двух чисел. Если в сумме окажется более п цифр, то ее левую цифру отбросить, а переменной t присвоить значение true, иначе переменной t присвоить значение false.
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.12.2009, 18:30
Ответы с готовыми решениями:

Определить количество понедельников в году, приходящихся на 13-е числа
type число=1..31 месяц=(янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); деньнедели=(вс,пн,вт,ср,чт,пт,сб); var...

Определить количество понедельников в году, приходящихся на 13-е число
Определить количество понедельников в году, приходящихся на 13-е число, считая, что год не високосный и 1 января приходится на понедельник.

Считая, что год невисокосный и 1 января приходится на день недели wd1, определить: k - количество понедельников в году, приходящихся на 13-е число
Не получается написать программку к задачке: (Буду рад если сможете написать мат.модель к ней, т.к. не понимаю само ее осуществление в...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.12.2009, 18:30
Помогаю со студенческими работами здесь

Определите количество понедельников в году, приходящихся на 13-е число
Дан фрагмент программы. type число = 1..31; месяц = (янв, фев, мар, апр май июн июл авг сен окт ноя дек); день недели = (...

считая что год не высокосный и известен день, на который приходится 1 января, подсчитать количество понедельников в году приходящихся на 13-е число
считая что год не высокосный и известен день, на который приходится 1 января, подсчитать количество понедельников в году приходящихся на...

Вывести дату всех понедельников в данном году
Здравствуйте! Мне нужно вывести дату(число и месяц) всех понедельников в этом году. Памагите

Определить количество полных недель и понедельников между заданными датами
Заданы две даты. Определить количество полных недель и понедельников между этими датами. Добавлено через 2 часа 27 минут Ау кто...

Найти количество понедельников, что выпадают на 13-е числа двадцать первого столетия
Обчислить количество понедельников, что попадаються на 13-е числа двадцать первого столетия и напечатать их список. Счет начинать с текущей...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru