作业帮 > 综合 > 作业

pascal编程题:求出满足下列条件的三位数:它除以11所得的商等于它各个数位之和(用for循环语句)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 23:46:55
pascal编程题:求出满足下列条件的三位数:它除以11所得的商等于它各个数位之和(用for循环语句)
Var
i,a,b,c:integer;
begin
for i:=100 to 999 do begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
if i div 11=a+b+c then write(i,' ');
end;
readln;
end.
再问: 对了,多谢