|
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. |
|
| 06.12.2009, 18:30 | |
|
Ответы с готовыми решениями:
0
Определить количество понедельников в году, приходящихся на 13-е числа Определить количество понедельников в году, приходящихся на 13-е число Считая, что год невисокосный и 1 января приходится на день недели wd1, определить: k - количество понедельников в году, приходящихся на 13-е число |
| 06.12.2009, 18:30 | |
|
Помогаю со студенческими работами здесь
1
Определите количество понедельников в году, приходящихся на 13-е число считая что год не высокосный и известен день, на который приходится 1 января, подсчитать количество понедельников в году приходящихся на 13-е число
Определить количество полных недель и понедельников между заданными датами Найти количество понедельников, что выпадают на 13-е числа двадцать первого столетия Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Программный контроль заполнения реквизита табличной части документа
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
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
|