Se o usuário fornecer um número que tenha mais de ...

457941201712699

Ano: 2013Banca: UFBAOrganização: UFBADisciplina: Linguagens de ProgramaçãoTemas: Linguagens de Programação | Pascal

Texto associado

O programa DivisorProprio recebe da entrada de dados um número inteiro fornecido pelo usuário e mostra, na tela, um dos divisores próprios desse número. Os divisores próprios de um número são aqueles diferentes de 1 e do próprio número. Por exemplo, os divisores próprios de 6 são 2 e 3.

program DivisorProprio;

var

num, i, divisor: integer;

begin

writeln(‘Digite um número inteiro maior que zero’);

readln(num);

divisor := 0;

for i := 2 to (num-1) do

if (num mod i = 0) then

divisor := i;

if divisor <> 0 then

writeln(divisor, ‘é um divisor próprio de’, num)

else

writeln(num, ‘não tem divisor próprio’);

end.

Se o usuário fornecer um número que tenha mais de um divisor próprio, o programa irá mostrar, na tela, o menor divisor próprio desse número.

Gabarito comentado

Anotações

Marcar para revisão

457941201712699

Ano: 2013Banca: UFBAOrganização: UFBADisciplina: Linguagens de ProgramaçãoTemas: Linguagens de Programação | Pascal

Texto associado

program DivisorProprio;

var

num, i, divisor: integer;

begin

writeln(‘Digite um número inteiro maior que zero’);

readln(num);

divisor := 0;

for i := 2 to (num-1) do

if (num mod i = 0) then

divisor := i;

if divisor <> 0 then

writeln(divisor, ‘é um divisor próprio de’, num)

else

writeln(num, ‘não tem divisor próprio’);

end.

Se o usuário fornecer um número que tenha mais de um divisor próprio, o programa irá mostrar, na tela, o menor divisor próprio desse número.

Gabarito comentado

Anotações

Marcar para revisão

Se o usuário fornecer um número que tenha mais de um divisor própri...

Questões relacionadas para praticar

Se o usuário fornecer um número que tenha mais de um divisor própri...

Questões relacionadas para praticar