作业帮 > 综合 > 作业

用pascal找出能被各位数字之和整除的一切两位数!

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 07:06:52
用pascal找出能被各位数字之和整除的一切两位数!
program aa;
var
x, y: byte;
begin
for x := 1 to 9 do
begin
for y := 0 to 9 do
begin
if (x*10+y) mod (x+y) =0 then
writeln(x,y)
end;
end;
end;