Cod sursa(job #143259)
| Utilizator |  Nezbeda Harald free2infiltrate |
Data | 26 februarie 2008 09:18:48 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.25 kb |
program euclid;
var a,b,c : longint;
f : text;
begin
assign(f,'euclid2.in');
reset(f);
read(f,a,b);
close(f);
while b <> 0 do begin
c := b;
b := a mod b;
a := c;
end;
assign(f,'euclid2.out');
rewrite(f);
write(f,a);
close(f);
end.
