Степень

[Аида]

Вам даны целые числа А,В и С. Выведите остаток от деления А^В на С.
Обратите внимание:
(X*Y)mod Z=((X mod Z)*(Y mod Z)) mod Z)
(X+Y)mod Z=((X mod Z)+(Y mod Z)) mod Z)

Формат входных анных
Единственная строка файла содержит 3 целых числа: A,B,C(0<=A, B<=10^18, 1<=C<=10^18). Числа разделены пробелами.

формат выходных данных
Выходной файл должен содержать одно число-ответ к задаче.

[Риндера]

Чтобы получить числа из файла:

read(file, A, B, C);

Других сложностей с программой не вижу, тем более если у тебя олипмиада, ты должна распогалать достаточными знаниями. Или я не права?

[Pein95]

ето олимпиадная задача?

[Аида]

нет, ели признаться то код на эту задачку у меня есть, просто я написала, чтобы посмотреть быстро ли здесь отвечают или нет, а так у меня база есть только вот я щас в 11 классе и думая о ЕНТ я почти что все забыла связанное с информатикой((


если кого-то обидела то прошу прощения господа программисты

нет) это не олимпиадная задачка

[Stilet]

Обратите внимание:

На что?

Выведите остаток от деления А^В на С.

^ - Это степень?
Тады так

var a,b,c:integer;f:text;
begin
 assign(f,'file.txt');reset(f);
 Тут Риндера рулит, только вместо file писать f в данном случае
 write(exp(b*ln(a)) mod c);
 readln;
end.

P.S. Да и файл закрыть не забудь. Процедура Close();

[Mad_Cat]

A,B,C(0<=A, B<=10^18, 1<=C<=10^18

Stilet
(10^18)^(10^18) не влезет в integer

[Stilet]

Хм... Верно. Однако не подумал...

[Косюра]

В чем вопрос? тогда не Integer, a LongInt или Int64. Честно говоря еще сама не решила. Я бы взяла LongInt.

[SNUPY]

2 Косюра
В том что даже первый из топ 250 супер-ЭВМ раком встанет если если ему попытаться загрузить в память число (10^18)^(10^18)

[Косюра]

Тогда можно сделать через цикл, но 10^18 он конечно долго считать будет.

Result:=1;
for i:=1 to B do
Result:=Result*(A mod C);
Result := Result mod C;

и кстати нет ограничения на А. Оно в каких пределах может быть?