Programa que imprimi os divisores de n entre A e B em Pascal.

Program MULTIPLOS;
uses crt;
var A, B, N, i: integer;
Begin

     // Site: http://programjm.blogspot.com.br/
     // Autor: João Matheus Santos Assis 

     textcolor(15);

     writeln;
     writeln ('> MULTIPLOS DE N ENTRE A e B');
     writeln;

     write (' Digite A: ');
     readln (A);

     write (' Digite B: ');
     readln (B);

     write (' Digite N: ');
     readln (N);

     writeln;
     writeln ('> MULTIPLOS DE ', N ,' ENTRE ', A , ' e ', B);
     writeln;
        
     for i:= A to B do
         if (i mod N = 0) then
             writeln (' ', i);

readkey;
end.


Artigos relacionados em Pascal:

• Calculando o IMC em Pascal
• Quadrado e Cubo dos números entre 1 e 20 em Pascal.
• Programa que calcula o fatorial de um número em Pascal
• Programa que verifica se um número é primo em pascal
• MDC em Pascal
• Calculadora Simples em Pascal

Feito no Dev-Pascal 1.9.2 | Executável