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

[Sofo4ka]

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

[klem4]

Вот что я придумал :

uses crt;
var
  i, j, k: Integer;
  c1, c2, c3, a, b, c: Integer;
  find: boolean;

begin
  clrscr;

  write('i = '); readln(i);
  write('j = '); readln(j);
  write('k = '); readln(k);

  find := false;
  c1 := 0;

  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;


  if find then writeln(a)
   else writeln('No found !');

  readln;
end.

Вот только будет ли это быстрее обычного перебора