作业帮pascal语言for如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.(要求：A < B )这是我
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/18 07:44:35
xSNPYa
ĎKW\@] MUW@BVDI.ks n98:W.fd}^n.^mSv rAghœ UYV s6>=zWÏG ZqmAa=}>cl/H_bJ*^̄W[fwr
͎A֝Gؿ&At/:Dh"F aɁ[Ck+YT2Ab`
mV)N GHZE(0Y YV '߄bi0礟sf)(*$|m|\)WS.գ`AJ>2x$B ,p{ձegnզ^
dNw]ll nux7`}Z.wTGT7%;Lun"3 g8
pascal语言for如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.(要求：A < B )这是我
pascal语言for
如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.
(要求：A < B )
这是我编写的程序
program Project1;
var
a,i,b,E,S:longint;
begin
for a:= 3 to 3000 do
begin
S:=0; E:=0;
for i:=1 to i-1 do
if (a mod i =0) then
S:=S+i;
for b:=1 to S-1 do
if (S mod b =0) then
E:=E+b
end;
if (a=E) and (a
pascal语言for如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.(要求：A < B )这是我
program Project1;
var
a,i,b,E,S:longint;
begin
for a:= 3 to 3000 do
begin
S:=0; E:=0;
for i:=1 to a div 2 do {这里原来的i-1是错了的,a-1也可,只是做了一半无用功 }
if (a mod i =0) then S:=S+i;
for b:=1 to S div 2 do
if (S mod b =0) then E:=E+b;
if (a=E) and (a
pascal语言for如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.(要求：A < B )这是我
pascal 求整数A除以B的循环节
用pascal语言做一道题读入三个整数,找出并输出其中最大的数
在 Pascal 语言中,判断整数a 等于 0 或b等于 0或c等于0 的正确的条件表达式是
Pascal语言 1011:求N的所有约数和 用for 控制变量：=表达式 to do,的语句!输入一个整数N,求它的所有约数（不包含N）的和.输入整数N（0
求由整数a的各位数字构成的最大整数.free pascal
pascal输入一个整数,如果它是7的倍数,则输出‘yes’,否则输出‘no’.
计算1—1000之间能同时被3和5整除的整数的和.pascal语言急!
pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数
从文件中读取两个整数,输出两个数中较大的一个的平方值.pascal语言编程
求100以内的素数pascal语言
pascal语言for循环能0 to 如题.
给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题
在pascal语言中,for循环的循环变量的初值若等于终值,该做何循环?
【急!】Pascal.输入一个整数,输出该数每一位数字的和.第一题：输入一个整数a(0
求亲密数 如果整数A 的全部因子（包括1,不包括A 本身）之和等于B ；且整数B 的全部因子（包括 1,不包括B
pascal题目：【C语言训练】求s=a+aa+aaa+aaaa+aa...a的值题目描述求s=a+aa+aaa+aaaa+aa...a的值,其中a是一个一位的整数.例如2+22+222+2222+22222(此时共有5个数相加)输入整数a和n（n个数相加,1
pascal语言改错程序、题目↓program x_dd;var a,b,c:ingteger;beginread(a);b:=a;for c:= 1 to 99 dobeginread(a);if b