Question

Написать программу для нахождения количества делителей каждого из целых чисел от 120 до 140. Паскаль​

Answer 1

const

 low = 120;

 high = 140;

begin

 for var number:=low to high do

   begin

     write('Делители числа ', number, ': ');

     for var i:=1 to number do

       if number mod i = 0 then

         write(i, ' ');

     write(#10);  

   end;

end.

3a1de5a9f9e227b654e9ab57822b0288.pas