Cod sursa(job #317497)
| Utilizator |  GRIG T. grigiq |
Data | 23 mai 2009 19:56:59 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.32 kb |
program euclid;
var a,b,n,c:longint;
begin
assign(input,'euclid2.in');
assign(output,'euclid2.out');
reset(input);
rewrite(output);
readln(input,n);
while n<>0 do begin
readln(input,a,b);
while b<>0 do
begin
c:=a div b;
a:=b;
b:=c ;
end;
writeln(output,c);
n:=n-1;
end;
close(input);
close(output);
end.