Pagini recente » Cod sursa (job #1892276) | Statistici iclenzan cristian (Nikizan) | Cod sursa (job #964973) | Cod sursa (job #2278690) | Cod sursa (job #285210)
Cod sursa(job #285210)
program suma;
const fin = 'euclid2.in';
fout = 'euclid2.out';
var r,a,b:integer;
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.