Cod sursa(job #357072)
| Utilizator |  Marginean Bogdan Alexandru Patrunjelu |
Data | 17 octombrie 2009 20:47:14 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.31 kb |
var a,b,r,t,i:integer;
inn,outt:text;
begin
assign(inn,'euclid2.in'); reset(inn);
assign(outt,'euclid2.out'); rewrite(outt);
readln(inn,t);
for i:=1 to t do begin
readln(inn,a,b);
while b <> 0 do begin
r:= a mod b;
a:=b;
b:=r;
end;
writeln(outt,a);
end;
close(inn); close(outt);
end.
