- ID
- 3806587
- 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.
O laço constituído pelo comando for será executado tantas vezes quanto for o valor da variável num, de
modo que, por exemplo, se o valor colocado na variável num for 20, o laço será executado vinte vezes.