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 )这是我 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