Question

How to find sum of the first N even numbers in Pascal

Answer 1

program SumOfEvenNumbers;

var
  N, sum_even: integer;

begin
  N := 5;

  // The sum of the first N even numbers is N * (N + 1) 
  sum_even := N * (N + 1);

  writeln('The sum of the first ', N, ' even numbers is: ', sum_even);

end.

// 2 + 4 + 6 + 8 + 10 = 30 


(*
run:

The sum of the first 5 even numbers is: 30

*)

 

70+ SQL courses for beginners and professionals