好听回族餐厅名称:lanmaoshiwo 试用期 一级(25) | 我的提问 | 我的回答 | 个人中心 | 退出

来源:百度文库 编辑:高校问答 时间:2024/05/15 00:08:08
数字之和的两位数

PASCAL 试编程找出能被各位数字之和整除的一切两位数。

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;

??