soma de números pares

Publicado por NewLinuxer 14/12/2005

[ Hits: 14.833 ]

Download Exemplo16.pas




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

  



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.

Scripts recomendados

Números perfeitos

Calculadora básica em Pascal

Registro

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Calculadora Empresarial Lazarus


  

Comentários
[1] Comentário enviado por peparocha em 08/11/2011 - 00:18h

Muito bom... tirei uma dúvida sobre o mod...


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts