Cod sursa(job #285228)
Utilizator | Abcdefg Sprzl | Data | 22 martie 2009 14:07:23 |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 60 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.61 kb |
program suma;
const fin = 'euclid2.in';
fout = 'euclid2.out';
var r,a,b:int64;
begin
{citire}
assign(input,fin);
assign(output,fout);
reset(input);
rewrite(output);
readln(a);
while not(eof()) do
begin
readln(a,b);
if b>a then
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln(a);
end
else
begin
while a>0 do
begin
r:=b mod a;
b:=a;
a:=r;
end;
writeln(b);
end;
end;
{tipar}
close(input);
close(output);
end.