Question

. Рассматриваются целые числа, принадлежащих числовому отрезку [523456; 578925],
которые представляют собой произведение двух различных простых делителей. Найдите такое
из этих чисел, у которого два простых делителя меньше всего отличаются друг от друга. В ответе
запишите простые делители этого числа в порядке возрастания. Если подходящих чисел
несколько, запишите в ответе делители наименьшего из них.

Answer 1

Ответ:

var a,b,c,d,e,f,g:Integer;

begin

 e:=0;f:=999999;

 for a:=523456 to 578925 do

   begin

     b:=a;c:=0;d:=2;

     repeat

       if b mod d=0 then begin b:=b div d;inc(c);end else inc(d);

     until (b=d)or(c=2);

     if (b=d)and(b<a) then begin inc(e);if f>abs(b-a div b) then begin f:=abs(b-a div b);g:=a;end;end;

   end;

 WriteLn(e,#32,g);

end.

Вроде как, то)