Как исправить ошибку арифметического переполнения в паскале?

[Poma][a]

В Вашем случае 52!/(13! * 39!) = 635013559600 комбинаций (влезает только в int64, если рассматривать целые типы).

Возможно влезет еще и в QWord (не проверял)

Получается мы должны будем сгенерировать все эти комбинации и искать только подходящие нам. С таким кол-вом комбинаций это нереально!!
Рекурсия тут не помощник (если не отбрасывать заведомо "плохие" варианты на стадии их эмбрионального развития)

Динамика тоже не к месту.. Вообщем хорошая задачка..

P.S. Сори что за 2 поста, но при их совмещении получалось > 5000 символов

[DarkDen]

Спасибо
У меня всё равно сразу после запуска отладчика ошибки выдает:

(15,8) errorrdinal expreession expected
(21,14) error: ordinal expreession expected
(92) fatal: there were 2 errors compiling module, stopping
(0) fatal: compilation aborted

Может в настройках паскаля что не то, или паскаль нужен другой, или из-за того что 64 винду использую, я уже не знаю.

"Динамика тоже не к месту.."

Програмка с N=52 и M=13 на моей конфигурации будет считать около 4 суток, нормально. Но почему ошибки???
Спасибо

[Poma][a]

Посмотрите что j - это у меня LongInt

[DarkDen]

Изменял...

[Poma][a]

И что? У меня всё компилируется - тыц

[DarkDen]

Интиресно...
Попробую другой паскаль, может АВС но он ведет расчеты в 3 раза медленнее. Какой у вас паскаль?
Спасибо

А может просто руки крывые )))

[Poma][a]

Какой у вас паскаль?

Free.(буквы-буквы)

[DarkDen]

Ммммммм, даааааааа
Все ясно, у меня тоже Free, буду дальше "змагаться", скорее всего где то синтоксическая ошибка. А как скопировать вашу версию с форума сразу в паскаль???????????
Огромное спасибо

[Poma][a]

Выделяете мой код -> Правая -> Копировать
Идем в Free Pascal -> File -> New
теперь Edit -> Paste from Windows

[DarkDen]

Фуууууууууу, Вы не представляете как вы мне помогли, главное что бы через 30 часов расчётов опять не выбило ошибку. Самому интересно в чём она была.

С вашей помощью зарадится луч света в тени )))
Спасибо