Cod sursa(job #1923681)
| Utilizator |  Buliga Nicu Nicubuliga |
Data | 11 martie 2017 21:21:03 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 60 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.26 kb |
var a,b,i,n,t:int64;f1,f2:text;
begin
assign(f1,'euclid2.in');
assign(f2,'euclid2.out');
reset(f1);rewrite(f2);
read(f1,n);
repeat
inc(i);
read(f1,a,b);
while b<>0 do begin
t:=b;
b:=a mod b;
a:=t;
end;
writeln(f2,a)
until i=n;
close(f1);close(f2);
end.
