Pagini recente » Cod sursa (job #80744) | Borderou de evaluare (job #395273) | Cod sursa (job #395948) | Cod sursa (job #1581815) | Cod sursa (job #285231)
Cod sursa(job #285231)
program suma;
const fin = 'euclid2.in';
fout = 'euclid2.out';
var r,a,b:longint;
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.