. Рассматриваются целые числа, принадлежащих числовому отрезку [523456; 578925],
которые представляют собой произведение двух различных простых делителей. Найдите такое
из этих чисел, у которого два простых делителя меньше всего отличаются друг от друга. В ответе
запишите простые делители этого числа в порядке возрастания. Если подходящих чисел
несколько, запишите в ответе делители наименьшего из них.
которые представляют собой произведение двух различных простых делителей. Найдите такое
из этих чисел, у которого два простых делителя меньше всего отличаются друг от друга. В ответе
запишите простые делители этого числа в порядке возрастания. Если подходящих чисел
несколько, запишите в ответе делители наименьшего из них.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Вроде как, то)