Question

Необходимо получить такую натуральную последовательность максимальной длины, у которой каждый текущий элемент, начиная со второго, является наибольшим делителем предыдущего элемента этой последовательности. Первый элемент последовательности по определению равен n.

Answer 1

var n, i: Longint;
begin
  Read(n); Write(n);
  repeat
    for i:=n div 2 downto 1 do
      if n mod i=0 then begin
        n:=i; Write(' ',n); Break;
      end;
  until n=1;
end.