Cod sursa(job #1453711)

Utilizator WafenSSCorneliu Vasilov WafenSS Data 24 iunie 2015 12:45:04
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.61 kb
Program p1;  uses crt;
 var a,b,c,max,min,v,n,i:integer; fo,fi:text; u:boolean;
 begin clrscr;
        assign(fi,'p1.in'); reset(fi);
        assign(fo,'p1.out'); rewrite(fo);
        read(fi,n);

        while n<>0 do begin
        readln(fi,a,b);
        if a>b then max:=a else max:=b;
        if b<a then min:=b else min:=a;
        for i:=max downto 1 do begin
        if min>max then begin v:=max; max:=min; min:=v; end;

        max:=max-min; if max=min then c:=max;
                                 end;

        dec(n);
        writeln(fo,c);
         end;
         close(fo);
        end.