Как составить программу получения в порядке убывания всех делителей заданного числа N — Pascal(Паскаль)

Program aaa;
var n,b:integer;
begin
writeln('enter a number');
read(n);
b:=n;
while (b<>0)
do
begin
if (n mod b)=0 then writeln(b);
b:=b-1;
end;
end.

Leave a Comment

2 + 4 =