Exercício 02 For - Pascal

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

program for02;
uses crt;
var 
soma:integer;
i:integer;
BEGIN
soma:=0;
    for i := 1 to 362 do
        Begin
            if (i mod 2 = 0) then
                soma:=soma+i;                
        End;
    Writeln('Soma: ',soma);
END.

Categories: Pascal , Programação