查一下错Free Pascal: 有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/03 08:32:38
查一下错Free Pascal: 有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.
我用Free Pascal做的,就是不能运行,帮忙查一下错:
var a,b,c,s:integer;
begin
for s:=100 to 999 do
begin
a:=a mod 100;
b:=b div 10 mod 10;
c:=c mod 10;
if (a+b+c)*11=s then writeln(s);
end;
readln
end.
我用Free Pascal做的,就是不能运行,帮忙查一下错:
var a,b,c,s:integer;
begin
for s:=100 to 999 do
begin
a:=a mod 100;
b:=b div 10 mod 10;
c:=c mod 10;
if (a+b+c)*11=s then writeln(s);
end;
readln
end.
var a,b,c,s:integer;
begin
for s:=100 to 999 do
begin
a:=s mod 100; //这三个最开始操作数应该是s,您卖萌了………………
b:=s div 10 mod 10;
c:=s mod 10;
if (a+b+c)*11=s then writeln(s);
end;
readln
end.
begin
for s:=100 to 999 do
begin
a:=s mod 100; //这三个最开始操作数应该是s,您卖萌了………………
b:=s div 10 mod 10;
c:=s mod 10;
if (a+b+c)*11=s then writeln(s);
end;
readln
end.
查一下错Free Pascal: 有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.
有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.8.在自然数中,如果一个三
C语言,有一个三位数,它的各位数字之和的11倍恰好等于它的自身,请编程求出这个三位数
一个三位数等于它自身数之和的11倍,求这个三位数
一个三位数除以它的各位数字之和等于19,这样的三位数有多少个?
如果有算式请列式.1.一个三位数等于它的各位数字之和的19倍,这样的三位数有11个.其中 最大的数是(?)
有一个三位数等于它的各位数字和的 42 倍,这个三位数是______.
一个三位数,等于它的各位数字之和的12倍,试写出所有这样的三位数?
pascal编程题:求出满足下列条件的三位数:它除以11所得的商等于它各个数位之和(用for循环语句)
一个三位数恰等于它的各位数字乘积的5倍,问这个数字是多少
一个三位数等于它各数位上数字之和的19倍,这个三位数最大是多少?最小是多少?
一个三位数等于它的各位数字之和的 19倍,这样的三位数共有11个,其中最小的和最大的分别是多少?