找出数字之和等于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一样啊!

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息