Programa para fazer a soma de todos os números pares entre dois números definidos pelo usuário

• Download Exemplo16.pas
• Enviar nova versã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.

Cáculo de Fatorial, utilizando-se de Repeat - Until

soma de matrizes

Calculadora Empresarial Lazarus

encontrar o maior e o menor valor em um vetor

mais um modelo de programa com vetor