Cod sursa(job #316903)
| Utilizator |  GRIG T. grigiq |
Data | 21 mai 2009 15:47:27 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.25 kb |
program euclid;
var a,b:integer;
begin
assign(input,'euclid2.in');
assign(output,'euclid2.out');
reset(input);
rewrite(output);
read(input,a,b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln(output,a);
close(input);
close(output);
end.