Степень

[SNUPY]

Ага... for i:=1 to 10^18 do
Решится по самым оптимистическим прогнозам всего-ничего за 114077.1161 лет... (если в миниуту будет щелкать по 10^9 итераций)...
Тут имхо надо так делать:
A^B mod C = Sum(бескон, n=0, [B^n*ln(a)^n]/n!) mod C
т.е по маклорену разложить =))) И по мои прогнозам... сумма ряда, при B=10^18, примет необходимую точность где-то при n=200

[Kingdom_Reborn]

Всё решится нормально, если использовать алгоритм быстрого возведения в степень и длинную арифметику. Я эту задачу решал, когда писал курсовую по реализации криптосистемы RSA, у меня всё довольно быстро работало, особенно на университетском суперкомпьютере