задача про натуральное число Опции

[Sofo4ka]

задуманно натуральное число х.известны три числа- остатки от деления этого числа 3,5,7 - i,j,k соответсвенно. найти Х

[klem4]

Невероятно

  global := 0;
  t1 := GetTickCount;

  repeat
    while (c1 < maxint) and not(find) do begin
      a := c1 * 3 + i;
      c2 := 1;
      while (c2 < maxint) and not(find) do begin
        b := c2 * 5 + j;
        if b > a then break;
        c3 := 1;
        while (c3 < maxint) and not(find) do begin
          c := c3 * 7 + k;
          if (c > b) or (c > a) then break;
          find := ((a = b) and (a = c));
          inc(c3);
        end;
        inc(c2);
      end;
      inc(c1);
    end;

    inc(global);
  until global = 900000;

  writeln('Result = ',a);

  t2 := GetTickCount;
  writeln('Time1 = ', t2 - t1);

  global := 0;
  t1 := GetTickCount;

  repeat
    for p := 1 to maxint do
     if (p mod 3 = i) and (p mod 5 = j) and (p mod 7 = k) then break;
    inc(global);
  until global = 900000;

  t2 := GetTickCount;
  writeln('Time2 = ', t2 - t1);

  writeln('Result = ', p);