soma de números pares

Descrição

Esconder código-fonte

Program Exemplo;

{Programa para fazer a soma de todos os n£meros pares entre
 dois n£meros definidos pelo usu rio}

uses crt;

Var par,numero_1,numero_2,soma: integer;

Begin

   ClrScr;
   soma:=0;

   Write('Primeiro n£mero--------> ');
   Readln(numero_1);

   Write('Segundo n£mero---------> ');
   Readln(numero_2);
   par:=numero_1;

   If par mod 2 <> 0 then
     par:=par+1;

   Repeat
     soma:=soma+par;
     par:=par+2;
   Until par>numero_2;

   Writeln('A soma dos n£meros pares entre ');
   WriteLn(numero_1,' e ', numero_2,' ‚ ',soma);

   readkey;

End.