找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)

来源：学生作业帮助网 编辑：作业帮 时间：2024/12/01 12:21:29
找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
xSn@("ۿ76MB P$چK%;k)бB5st)˭fɛ3 +b.k7s[Zu3BNcT$aᴨEvM?kQPAr,ʾA@9Lj=W}-x_.Ɂ'XjG 1&*yBBAj"CD*)Au\u)$' ݉ژ>h81 w:g3Swr͵=pP7Kc ̮b GN{`y͂7–+s$9lYAqAA:OI-hRVVDy~ x@\gB*p2dԈЫAoAZ7`avn/̙BgvY2kʀzEFIfq_k89 Zn {'P<  AꟵ$x.Ϛx;4OUC

找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)

找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
program t1;
var a,b,c,i:longint;
begin
for i:=10 to 99 do
begin
c:=i mod 10;
b:=i div 10;
if (a+b=6) and (i mod 5=0) then begin write(i:5); a:=a+1; end;
end;
writeln(a);
end.
说一下,a是计数器,用来计有多少个数,不用的话删掉就行了（倒数第二行、倒数第四行“a:=a+1”那一句、第二行去掉“a,”）.b和c是这个数的十位和个位,用来计算是不是等于六,i就是那个数.复制的时候将他复制到txt上,把后缀名“.txt”改成“.pas”就行了,或者直接复制.
希望对你有帮助
楼上的,turbo pascal 和 free pascal一样啊!

找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答) 在所有位数字之和等于34,且能被11整除的四位数中最大的一个是多少,最小的一个是多少 在所有五位数中,各位数字之和等于43且能被11整除的数有哪些? 在所有个位数字之和等于34,且能被11整除的四位数中最大是?最小是? 在所有个位数字之和等于34,且能被11整除的四位数中最大是?最小是?1、在所有个位数字之和等于34,且能被11整除的四位数中,最大的一个是?最小的一个是?2、在所有各位数字之和等于34,且能被11 所有五位数中,个位数字之和为43且能被11整除的数是多少? vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个 各位数之和等于43,且能被11整除的所有五位数有几个? 有一个四位数既能被2整除,又能被5整除,它的前面两位数字按顺序组成的数是能被3整除的最小的两位数,四位数字之和是偶数,则这个数可能是? 一个三角形的三条边是三个两位的连续偶数,他们的末尾数字之和能被7整除,这个三角形的最大周长等于几?要列式. 求所有满足下列条件的四位数,能被11整除,且商等于四位数的各位数字之和 试找出这样的最小自然数,它能被11整除,它的各位数字之和等于13,这个数是?试找出这个数 找出一个三位自然数N,它能被11整除且N/11等于N各位数字的平方和. 用pascal找出能被各位数字之和整除的一切两位数! 统计区间【1000,9999】内所有被7整除,且千位与个位数字之和为7的整数有那些 VF 求100-999内所有不含数字0且各位数字之和被14整除的数之和 在五位数中,能被11整除且个位数字之和等于43.求这样的数. 在所有的五位数中,各位数字之和等于43,且能被11整除的数有哪些?