您所在位置：主题：新手请高人不吝赐教！
maomao123
[专家分：0] 发布于 2010-10-10 16:53:00
第十五届全国青少年信息学奥林匹克联赛初赛试题
四、阅读程序写结果
var
a,b:intege;
function work(a,b:integer):integer;
begin
if a mod b < > 0 then
work:=work(b, a mod b)
else
work:=b;
end;
begin
read(a,b);
writeln(work(a,b));
end;
输入：123 321
输出：
结果怎么3 请帮忙解释，越详细越好，谢谢！！！
四、阅读程序写结果
var
a,b:intege;
function work(a,b:integer):integer;
begin
if a mod b < > 0 then
work:=work(b, a mod b)
else
work:=b;
end;
begin
read(a,b);
writeln(work(a,b));
end;
输入：123 321
输出：
结果怎么3 请帮忙解释，越详细越好，谢谢！！！
