M.D.C (Euclides) – RodrigoAC

Dados dois números inteiros positivos, determinar o máximo divisor comum entre eles usando o algoritmo de Euclides.

Exemplo:

Delphi/Pascal

program AlgoritmoDeMDC; var a,b,r: integer; begin readLn(a, b); write('MDC_(', a, ',', b, ')=_'); repeat r:=a mob b; a:=b; b:=r until r=0; writeLn(a) end.

1
2
3
4
5
6
7
8
9
10
11
12
13

program AlgoritmoDeMDC;
var a,b,r: integer;

begin
readLn(a, b);
write('MDC_(', a, ',', b, ')=_');
repeat
  r:=a mob b;
  a:=b;
  b:=r
until r=0;
writeLn(a)
end.

Posts Relacionados

Deixe uma resposta Cancelar resposta