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

3) Faça uma função que receba dois números positivos passados por parâmetro e retorne a soma dos N números inteiros existentes entre eles.

Program Fun03 ;
var
 n1,n2:integer;
 
function soma(n1,n2:integer):integer;   
var
adicao_a,adicao_b:integer;
res_final:integer;
i:integer;
 Begin
  for i := n1 downto 1 do
   Begin
     adicao_a:= adicao_a + i;
   End; 
  for i := n2 downto 1 do
   Begin
     adicao_b:= adicao_b + i;
   End; 
  res_final:= adicao_a+adicao_b;
  soma:=res_final;
 End;
 
 
 Begin
  Write('Informe 1 Valor: ');
  readln(n1);
  Write('Informe 2 Valor: ');
  readln(n2);
   Writeln('Resultado: ',soma(n1,n2));
   Writeln('            by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação