مقسوم علیه های یک عدد

دوستان اگر در مورد این موضوع الگوریتمی دارین برام بفرستین.
ممنون میشم.

میدانیم که هر عدد به 1 و خودش بخش پذیر است (پس 1وn دو مقسوم علیه ثابت هر عدد مباشد به جز خود 1)
و بزرگترین مقسوم علیه یک عدد (به جز خود عدد) حداکثر برابر نصف آن عدد است

reaadln(n);

for i:=2 to n /2 do 

if n mod i =0 then  (iمقسوم علیه n است) 

:sunglass:

می تونیم به جای n/2 از جذر n یعنی (Sqrt(n استفاده کنیم

private sub command_click()
dim i as integer
dim c as integer
i = inputbox ("enter number ?")
for c = 1 to i
if i mod c = 0 then
print c
end if
next c
end sub :لبخندساده:
این برنامه مقسوم علیه های یک عدد که از ورود یدریافت می شه ،با ویژوال نوشتمش ، همینطور هم که از متن برنامه می بینی فقط یکcommand می خواد .