Atividade
Faça um algoritmo que leia um número inteiro e informe todos os seus divisores.
Resposta
program divisores;
var cont, num: integer;
begin
write('Digite um número inteiro: ');
readln(num);
for cont:=num downto 1 do
if num MOD cont = 0 then
writeln('Divisor = ',cont);
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Divisores”