Question

Scrieţi un program care citeşte de la tastatură un număr natural şi calculează suma numerelor pare cuprinse între 1 şi n.Ajutor!

Answer 1

Program P1;

var i, n, suma : integer;

begin

   write('n = ');

   readln(n);

   suma := 0;

   for i := 1 to n do

   begin

       if (i mod 2 = 0) then suma := suma + i;

   end;

   writeln('Suma tuturor numerelor pare de la 1 la  ', n, ' este: ', suma);

end.