quinta-feira, 16 de junho de 2011

Digita 10 numeros e soma somente os numeros pares

{faça um algoritmo que escreva numeros na tela de 1 até 10
e depois some somente os numeros pares e exiba o resultado}
Program Pzim ;
var
i, num:integer;
soma:real;
 Begin
soma:=0;
     for i:=1 to 10 do               {faz de 1 até 10}
         begin
             writeln('Digite um número: ' ); {solicita que digite um numero}
             readln(num);                    {lê o numero}
             clrscr;                          {limpa a tela a cada vez que digita um numero e dá enter}
                 if (num mod 2 = 0) then    {se o numero dividido por 2 (condição pra ser par) é igual a zero}
                     begin
                         soma:=soma+num;     {soma o numero}
                     end;
         end;
         writeln('A soma dos numeros pares é : ',soma);      {mostra o resultado}
 End.