Mostrar todos os divisores de um numero n e sua soma em pascal

27 de novembro de 2017 2 respostas Resolvido

gabriel_gomeS0 27 de novembro de 2017

Iai galera, blz? Queria saber como faço para calcular a soma de todos os divisores de um numero n. Eu ja sei como mostrar todos os divisores:

Program Pzim ;

var

x,n,teste,t:integer;

Begin

writeln(‘Digite um número:’);

readln(n);

write(‘São divisores de’,’ ‘,n,’ :’);

for x:= 1 to n do

begin

teste:= n mod x;

if(teste=0)then

write(x,’,’);
end;

End.

Agr como faço para somar eles? Alguem pode me ajudar?

2 Respostas

Solucao aceita

Jonathan_Medeiros 27 de nov. de 2017

Basta adicionar dentro do laço de repetição uma variável somando!

for x:= 1 to n do
  begin
    teste:= n mod x;
    if(teste=0)then
      write(x,’,’);
      soma := soma + x;
      writeln('Soma:',soma);
  end;

gabriel_gomeS0 27 de nov. de 2017

vlw, deu certo !!!

Criado 27 de novembro de 2017

Ultima resposta 27 de nov. de 2017

Respostas 2

Participantes 2

2 Respostas

Topicos relacionados