Developing.ru

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

Какая версия Pascal?
От этого многое зависит.

версия 7.0

Ок. В TurboPascal 7.0 не было стандартных функций для работы с датой/временем.
Извлечь день/месяц/год из даты можно было только функциями
PackTime и UnpackTime, которые присутствуют только в модуле
Dos или WinDos (BorlandPascal 7.0 for Windows).
И предназначены были эти функции для работы с датами файлов.

Вобщем, можно найти первую пятницу любого века (в пределах дат, который поддерживала DOS). А затем "пробежать" по всему веку, прибавляя по 7. Ну и подсчитать количество.

не можете ли вы подсказать как ее найти, с помощю цыкла?и какой у нее может быть алгоритм решения, а то я эту задачу не очень понимаю, и способыее решения также...