输入一个自然数,求他的约数pascal-搜答案-拍题作业网

应该是72有1,2,3,4,6,8,9,12,18,24,36,7212个约数

11

1.PrivateSubCommand1_Click()a=InputBox("")Fori=1ToaIfaModi=0ThenPrintiNextEndSub2.PrivateSubCommand1

vari,x,a：integer;beginread(x);a:=0;fori:=1toxdobeginifxmodi=0thena:=a+i;end;write(a);end.

programyueshuhe;varn,i,s:longint;beginwriteln('inputn:');readln(n);s:=1;fori:=2tondobeginifnmodi=0th

只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了

A的五次方

一楼,借用一下啊,加了个2060:1234561215203060

你要晓得哪些是可以被它约去的最小化简数,这些最小的化简数就是除了它本身和1以外,不能再被其他数除尽的数.然后把这些最小化简数拿来相乘就可以分别得到它的所有约数了,对了,它本身和1也是它的约数.比如10

最小的约数为1,第二的是3-1=2那么最大的约数是这个自然数本身第二大的,是这个自然数的一半这个自然数为：252÷（1+0.5）=168

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

这个自然数是82,最大两个约数分别是82和41.

75.设该自然数为N,它的最小的两个约数之和是4,故最小的两个约数一定是1和3,由于3是N除1以外的最小约数,故N是3的倍数,且不能被2整除,另一方面,一个数的最大约数一定是它本身,如果x仅次于N的最

importjava.util.Scanner;publicclassMath11{publicstaticvoidmain(String[]args){Scanners=newScanner(Sys

vara,b,s,n:longint;begins:=0;b:=0;whiles10dobegininc(b);forn:=1tobdoifbmodn=0thens:=s+1;end;writeln(

最小约数是1所以第二小是4-1=3所以最大的是他本身而第二大的是这个数的1/3所以这个数是148÷(1+1/3)=111

此题目不严密例如80的两个最大约数是40和20.40+20=60.满足条件72的两个最大约数是36和24.36+24=60.也满足条件.因此答案不唯一.

最小的两个约数中一定有一个是1，因此另一个是3，最大的两个约数是：100÷（3+1）=25，100-25=75．所以最大的两个约数是25和75，这个自然数就是75．答：这个自然数是75．

∵123=1×3×41123-41=82∴这个自然数是82

84