Mai intai trebuie sa te autentifici.
Cod sursa(job #2472563)
| Utilizator |  Soltan Cristian Patrickvasile |
Data | 12 octombrie 2019 16:31:06 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.32 kb |
var a,b,c,n,d:integer;
fout,fin:textfile;
begin
assign(fin,'euclid.in');
reset(fin);
assign(fout,'euclid.out');
rewrite(fout);
readln(fin,n);
while n >0 do begin
read(fin,a,b);
while a<>b do begin
if a>b then a:=a-b;
if b>a then b:=b-a;
end;
writeln(fout,a);
n:= n-1
end;
close(fin);
close(fout);
end.
