Lista 03a - DCC/UFMG

33) Escreva um algoritmo em PORTUGOL que calcule o resto da divisão de A por B(número inteiros e positivos), ou seja, A mod B, através de subtrações sucessivas.Esses dois valores são passados pelo usuário através do teclado.algoritmo L3P033;varinteiro: A, B, MOD;inícioleia(A,B);MOD ← A;enquanto ( MOD >= B ) façaMOD ← MOD – B;fim-enquantoimprima("o resto da divisão de A por B (A mod B) é: ",MOD);fimprogram l3p033;varA, B, MD: integer;beginwrite('Entre com valor de A: ');readLn(A);write('Entre com valor de B: ');readLn(B);MD := A;while ( MD >= B ) doMD := MD - B;writeLn('o resto da divisao de A por B (A mod B) eh: ',MD);end.% A, B, MD: integer;A = input('Entre com valor de A: ');B = input('Entre com valor de B: ');MD = A;while ( MD >= B )MD = MD - B;endfprintf(1,'o resto da divisao de A por B (A mod B) eh: %d\n',MD);UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 33