Răspuns :

Răspuns:

program suma;

var

   n:integer;

   sum:integer;

   i:integer;

begin

 write('n= ');readln(n);

 sum:=0;

 for i:=1 to n do

 begin

   if i mod 2=0 then

       sum:=sum+i;

 end;

 write(sum);

end.

Explicație:

ID Alte intrebari