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

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

Solution!!!
Послано And IV (ucs-usty-forever) 6 мар 2007 20:08
program _1110;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var N,i,o,m,y,x:cardinal;
Exist:boolean;
begin
  Exist:=false;
  Readln(n,m,y);
  For I:=0 to m-1 do
   begin
   x:=i;
   For o:=2 to n do   X:=x*i mod m;
   if x=y then
    begin
     exist:=true;
    Write(i,' ');
    end;
   End;
   if not exist then write('-1');
end.
Re: Solution!!!
Послано shipulin13 24 апр 2008 15:54
you good man