实现两整数相除。功能1:判断分母是否为0(如果为0,返回值为0,不是,返回值为1)，功能2:做除

计算结果，一个功能用一个自定义函数实现，最后在main函数里调用它们

var
a,b:longint;//a为分子，b为分母
procedure work;
begin
writeln(1);
writeln(a/b:0:10);
end;
procedure dodo;
begin
if b=0 then writeln(0)
else work;
end;
begin
readln(a,b);
dodo;
readln;readln;
end.

应该不是吧。