Atividade
Faça um algoritmo que leia os extremos inteiros de um intervalo [x,y] e informe todos os divisores de todos os números inteiros contidos neste intervalo.
Resposta
program divisoresIntervalo;
var x,y,divisor,num: integer;
begin
write('Digite os extremos do intervalo [x,y]: '); readln(x,y);
for num:=x to y do
for divisor:= 1 to num do
if num MOD divisor = 0 then
writeln('Divisor = ',divisor);
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Intervalo divisores”