Ачетные дается последовательность из n чисел. выведите сумму четных чисел среди них.

Question

Информатика: Ачетные дается последовательность из n чисел. выведите сумму четных чисел среди них.

alinatrocenko · Answer

Varn,i,sum:Integer;Begin Read(n); for i:=1 to n do  begin   if (i mod 2=0) then sum:=sum+i;  end;  Writeln(sum); end....