不是VIP会员,不能显示答案

题目解答

题目:
Var
a, b : longint;
begin
readln(a,b);
while (a <> b) do
begin
if (a > b) then a := a - b
else b := b - a;
end;
writeln(a);
end.
输入:100 12
输出:4
考点: 0
分析:
解答: 最大公约数
评论:
老师: 0