SóProvas


ID
3806590
Banca
UFBA
Órgão
UFBA
Ano
2013
Provas
Disciplina
Programação
Assuntos

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.

Alternativas