Question

Напишите программу, которая отображает все делители числа N.

Входные данные: вводится единственное натуральное число n.

Выходные данные: на одной строке вывести все делители данного числа. Используйте для вывода параметр end = " " с командой print(). Пример: print(x, end = " ").

Answer 1

PascalABC.Net

begin

 var a := ReadInteger('Введите число');

 var i := 0;

 while i < a do

 begin

   Inc(i);

   if a mod i = 0 then Print(i, ' ');

 end;

end.