Anonymous user
Greatest common divisor: Difference between revisions
→{{header|Pascal}}
(→{{header|R}}: Fix iterative version, add labels and output.) |
|||
Line 2,080:
By: NG
=={{header|Pascal}} / {{header|Delphi}} / {{header|Free Pascal}}==
===Recursive Euclid algorithm===
<lang pascal>function gcd_recursive(u, v: longint): longint;
|