计算最大公约数 o var n,n,『qH o beqir read(mh ●{计算m和n的最大公约数 read(n {为了方便,规定m>=n procedure gcap ●ifm< n then ● begin begin while ro do r:=mi begin m:=hi q:= m/n n:=r ri=m"hi en d n:=『 begin end r:=1 ent call gcd write() ent d ●end计算最大公约数 ⚫ var m, n, r, q; ⚫ { 计算m和n的最大公约数} ⚫ procedure gcd; ⚫ begin ⚫ while r#0 do ⚫ begin ⚫ q := m / n; ⚫ r := m - q * n; ⚫ m := n; ⚫ n := r; ⚫ end ⚫ end; ⚫ begin ⚫ read(m); ⚫ read(n); ⚫ { 为了方便，规定m >= n } ⚫ if m < n then ⚫ begin ⚫ r := m; ⚫ m := n; ⚫ n := r; ⚫ end; ⚫ begin ⚫ r:=1; ⚫ call gcd; ⚫ write(m); ⚫ end; ⚫ end