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

[Sofo4ka]

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

[volvo]

Невероятно

Потому, что некорректно Ты же не инициализируешь Find и C1 заново при каждой итерации, следовательно, у тебя в первом случае показывается время одной итерации, а во втором - время ВСЕХ... Вот так - корректнее:

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

  T: dword;

begin
  clrscr;

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

  T := gettickcount();


  global := 0;
  repeat
    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;

    inc(global);
  until global = 900000;

  if find then writeln(a)
   else writeln('No found !');
  writeln('klem1:: Time = ', gettickcount() - T);


  T := GetTickCount();

  global := 0;

  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);

  writeln('Result = ', p);
  writeln('klem2:: Time = ', gettickcount() - T);


  readln;
end.