Question

Паскаль! Ввести целое число и определить все его делители. Вывести все делители числа на экран. Через repeat и until.

Answer 1

c:=0;

for i:=1 to n do

begin

if n mod i = 0 then writeln(i);

inc(c);

end;