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

Обсуждение задачи 1157. Юный плиточник

I DON'T KNOW WHY I GOT WA???HELP~~~~~PLS~~~~~
Послано windy 28 май 2003 19:14
program windy;
    var
      n,i,m,k,j,n1,n2:longint;
      c:boolean;
    begin
      readln(m,n,k);
      c:=true;
      i:=k+1;
      while c and (i<=10000) do
        begin
          n1:=0;
          n2:=0;
          for j:=2 to trunc(sqrt(i)) do
            begin
              if i mod j=0 then n1:=n1+1;
              if (i-k) mod j=0 then n2:=n2+1;
            end;
          if (n1+1=n) and (n2+1=m) then c:=false
            else i:=i+1;
         end;
       if c then writeln(0);
       if not c then writeln(i)
     end.