Alguém pode me ajudar? Não consegui nem ao menos criar um código para isso.
Proponha um algoritmo em Pascal que leia dois números inteiros e positivos, e apresente o m.d.c. (máximo divisor comum) entre eles. O m.d.c. de dois números inteiros positivos pode ser calculado da seguinte forma: Dados dois números inteiros, X e Y. Enquanto X for diferente de Y, subtraia o menor valor do maior. Ao final, escreva o valor atual de X.
Qual a sua dificuldade em específico. Só postar o enunciado não ajuda. Tente ao menos começar.
Sabe ler variáveis? Fazer subtrações? Comparações (if) ?
Abraço.
Devo adimtir que eu estava com preguiça de fazer.
Fiz umas pesquisas na internet e só encontrei o codigo em portugol mas foi facil para mudar para pascal:
Program Mdc ;
**var **
x,y,maior,menor,aux:integer;
Begin
writeln(‘Informe o primeiro número:’);
readln(x);
writeln(‘Informe o segundo número:’);
read(y);
if(x > y) then
begin
maior:= x;
menor:= y;
end
else
begin
maior:= y;
menor:=x;
** end;**
** while(maior mod menor <> 0) do**
** begin**
** aux:= menor;**
** menor:= maior mod menor;**
** maior:=aux;**
** end;**
** writeln(’ ‘);**
** writeln(‘O maximo divisor comum entre,’,x,’ e’,y,’ é:’, menor);**
End.