Cod sursa(job #327163)
| Utilizator | Data | 27 iunie 2009 14:19:08 | |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.39 kb |
program euclid;
var a,b:text;
x,y:longint;
function cmmdc(x,y:longint):longint;
begin
if x=0 then exit(y) else
if y=0 then exit(x) else exit(cmmdc(y, x mod y));
end;
begin
assign(a,'euclid2.in');
assign(b,'euclid2.out');
reset(a);
rewrite(b);
readln(a);
while not(eof(a)) do
begin
Readln(a,x,y);
Writeln(b,cmmdc(x,y));
end;
close(B);
end.