pascal语言for如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.(要求：A < B )这是我

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 14:52:08

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