Exercício 02 Repeat - Pascal

2) Elaborar um programa que apresente no final o somatório dos valores pares existentes na faixa de 0
até 500.

Program repeat02 ;
uses crt;
var
i:integer;
soma_par:real;
 Begin  
 i:=1;
   repeat
      if (i mod 2 = 0) then
           soma_par := soma_par + i;
       i := i + 1;
   until (i = 500);    
   Writeln('Soma de Valores Pares: ',trunc(soma_par));
   Writeln('              by Marcus Vinicius');   
 End.

Categories: Pascal , Programação