Question

Помогите с задачей.Дали это и сказали сделать на паскале.дам 45 баллов!!!
Выведите все натуральные делители числа х в порядке возрастания (включая 1 и само число).
Вводится натуральное число x
Выведите все делители числа х​

Answer 1

program ex_1;

 var x, i: Integer;

 begin

   write('Введите x: ');

  read(x);

   for i := 1 to trunc(sqrt(x)) do

     if  ((x mod i) = 0) then

       write(i,' ');

   for i := trunc(sqrt(x)) downto 1 do

  if (i=trunc(sqrt(x))) and (i*i=x) then

   else

     if ((x mod i) = 0) then

       write((x/i):0:0, ' ');

 

 end.