Cod sursa(job #1774841)
| Utilizator |  Nicolae Varticean Varticean |
Data | 9 octombrie 2016 15:13:59 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.16 kb |
program cmmdc;
var a,b,aux:integer;
begin
read(a,b);
aux:=a; a:=b; b:=aux;
while b<>0 do
begin
aux:=a mod b ; a:=b; b:=aux; end;
writeln(a);
readln;
end.