помогите с задачей на Паскале.
Нужно вычислить количество пятниц приходящих на 13-е числа в любом столетии с номером n, где n - натуральное число.
Количество пятниц 13
-
Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Какая версия Pascal?
От этого многое зависит.
От этого многое зависит.
-
Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Ок. В TurboPascal 7.0 не было стандартных функций для работы с датой/временем.
Извлечь день/месяц/год из даты можно было только функциями
PackTime и UnpackTime, которые присутствуют только в модуле
Dos или WinDos (BorlandPascal 7.0 for Windows).
И предназначены были эти функции для работы с датами файлов.
Вобщем, можно найти первую пятницу любого века (в пределах дат, который поддерживала DOS). А затем "пробежать" по всему веку, прибавляя по 7. Ну и подсчитать количество.
Извлечь день/месяц/год из даты можно было только функциями
PackTime и UnpackTime, которые присутствуют только в модуле
Dos или WinDos (BorlandPascal 7.0 for Windows).
И предназначены были эти функции для работы с датами файлов.
Вобщем, можно найти первую пятницу любого века (в пределах дат, который поддерживала DOS). А затем "пробежать" по всему веку, прибавляя по 7. Ну и подсчитать количество.
не можете ли вы подсказать как ее найти, с помощю цыкла?и какой у нее может быть алгоритм решения, а то я эту задачу не очень понимаю, и способыее решения также...