找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/23 21:29:44
找出数字之和等于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一样啊!
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语言回答)
用pascal找出能被各位数字之和整除的一切两位数!
Free pascal 所有能被5整除的四位数.求每步的解释.
free pascal 用for循环做 求所有的三位数中十位数能被个位数和百位数之和整除的数.
能被5整除且至少有一位数字是5的所有整数的个数 用pascal 最好讲明每一步的意思
pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数
在所有五位数中,各位数字之和等于43且能被11整除的数有哪些?
在所有个位数字之和等于34,且能被11整除的四位数中最大是?最小是?
一个两位数,能被2整除,且两个数位上的数字之和是8,这样的两位数有哪些?
一个两位数,能被2整除,且各位、十位上的数字之和是8,这样的两位数有哪些?
一个两位数能被2整除,且个位,十位上数字之和是8这样的两位数有哪些.
用C语言编写,打印100以内个位数字为6且能被3整除的所有数.