Сума парних

Pascal Цикли

парні до n

Блок-схема за ДСТУ

Вихідний код

function sumEven(n: integer): integer;
var i, s: integer;
begin
  s := 0;
  for i := 1 to n do
    if i mod 2 = 0 then
      s := s + i;
  sumEven := s;
end;