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

6) Altere o programa número 5 de forma que ele seja resolvido utilizando procedimento.

Program Fun06 ;
var
 a,b,c:integer;
 
procedure somatorio(n1,n2,n3: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;                
        Writeln('Resultado: ',soma);        
 End;
 
{Main} 
 Begin
  Write('Informe 1 Valor > 1: ');
  readln(a);
  Write('Informe 2 Valor    : ');
  readln(b);
  Write('Informe 3 Valor    : ');
  readln(c);
  somatorio(a,b,c); {chama o procedimento}
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação