Question

求出几个数的最大公约数 pascal

给你n（1 < = n < = 50) 个正整数，要求求出它们的最大公约数。（所有的整数的范围 都在longint范围）

input

3
18 27 30

onput

3

Answer 1

program abc;
var tmp,a,b,n:longint;
procedure swap(var a,b:longint);
begin
tmp:=a;a:=b;b:=tmp;
end;

function gcd(a,b:longint):longint;
begin
if b=0 then gcd:=a
else gcd:=gcd(b,a mod b);
end;

begin
readln(n);
read(a,b);
if b>a then begin swap(a,b) end;
a:=gcd(a,b);
while not eof do
begin
read(b);
if b>a then begin swap(a,b) end;
a:=gcd(a,b);
end;
writeln(a);
end.

Answer 2

function gcd(a,b:longint):longint;
begin
if b=0 then exit(a);
exit(b,a mod b);
end.

Answer 3

var s,n,i,k:longint;

function gcd(a,b:longint):longint;{辗转相除}
begin
if b=0 then exit(a);
exit(b,a mod b);
end.

begin
readln(n);
read(s);
for i:=1 to n-1 do begin
read(k);
s:=gcd(s,k);
end;
writeln(s);
end.