最大公约数 while语句hvar a,b,c:longint;beginwrite('a,b=');readln(a,b);while b>0 do beginc:=a mod b;a:=b;b:=c;endwrite(a);end.while b>0 do 中b>0 为什么help!

最大公约数 while语句hvar a,b,c:longint;beginwrite('a,b=');readln(a,b);while b>0 do beginc:=a mod b;a:=b;b:=c;endwrite(a);end.while b>0 do 中b>0 为什么help!
最大公约数 while语句
hvar a,b,c:longint;
begin
write('a,b=');
readln(a,b);
while b>0 do begin
c:=a mod b;
a:=b;
b:=c;
end
write(a);
end.
while b>0 do 中b>0 为什么
help!

最大公约数 while语句hvar a,b,c:longint;beginwrite('a,b=');readln(a,b);while b>0 do beginc:=a mod b;a:=b;b:=c;endwrite(a);end.while b>0 do 中b>0 为什么help!
b==0,不就是除尽了吗,这时就应该退出循环,打印最后那个a了