[Alekss]

помогите вычислить
B:=Power(A,Kb) mod (p); (так не работает)

где р - простое число типа longint
1<Kb<p целое
1<A<p целое

[PhoeniX]

вроде бы нужный тебе вариант такой:

Код:

uses ... , ... , Math;

...
...

begin
  B:=IntPower(A,Kb) mod p;
end;

запускать не пробовал, но вроде всё так.

[Nyctos Kasignete]

popyurv, нет. Функция IntPower возвращает значение вещественного типа, а mod предполагает операнды лишь целого типа.
Степень можно получить циклическим перемножением, например.
Если числа большие, то можно предложить перейти на 64-битный тип Int64...

[Alekss]

первый вариант не подходит
а насчет int64 - чтото выдает, но поместится ли туда longint в степепни longint?

[Alekss]

может у кого еще есть предложения??!
буду благодарен!