ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1110. Степень

HELP PLEASE!!! WA#6
Послано BlackShark 10 янв 2009 00:41
var n,m,y,i:integer; x:int64; found:boolean;

function pow(x,a:integer):int64;
var i:integer; res:int64;
begin
res:=1;
for i:=1 to a do res:=res*x;
pow:=res;
end;

begin
found:=false;
readln(n,m,y);
for i:=0 to m-1 do begin
x:=pow(i,n) mod m;
if x=y then begin
found:=true;
write(i,' ');
end; end;
if not Found then writeln('-1');
end.