Exercicio 02 While - Pascal

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

Program while02 ;
var
 n: integer;
 soma:real;
 Begin
  n := 0;
  While (n <= 500) do
   Begin
    if (n mod 2 = 0) then
     soma := soma + n;
    n:=n+1;
   end;    
  Writeln(soma:0:0); 
 End.

Categories: Pascal , Programação