Cod sursa(job #285214)
Utilizator | Data | 22 martie 2009 14:01:30 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 60 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.42 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);
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln(a);
end;
{tipar}
close(input);
close(output);
end.