Exercício 05 Funções e Procedimentos - Pascal

5) Crie uma função que receba três números inteiros a, b e c, sendo a maior que 1. A função deverá somar todos os inteiros entre b e c que sejam divisíveis por a (inclusive b e c) e retornar o resultado para a função principal.

Program Fun05 ;
var
 a,b,c:integer;
 
function somatorio(n1,n2,n3:integer):integer;   
var
i,soma:integer;
 Begin    
    soma:=0;
    {somatorio de todos os numeros de b}    
    for i := n2 downto 1 do
        Begin
            if (i mod n1 = 0)then            
                    soma:=soma+i;            
        End;    
    {somatorio de todos os numeros de c}    
    for i := n3 downto 1 do
        Begin
            if (i mod n1 = 0)then            
                    soma:=soma+i;            
        End;                
        somatorio:=soma;
 End;
 
 
 Begin
  Write('Informe 1 Valor > 1: ');
  readln(a);
  Write('Informe 2 Valor    : ');
  readln(b);
  Write('Informe 3 Valor    : ');
  readln(c);
   Writeln('Resultado: ',somatorio(a,b,c));
   Writeln('            by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação