Из предложенных операторов составьте 2 задачи.

• Группы
  • Определите количество четных элементов в последовательности, завершающейся числом 0.
    Само число 0 учитывать не нужно.
  • Определите сумму всех элементов последовательности, завершающейся числом 0.
• Варианты
  • Var a, k: integer;
  • Begin
    Read\(a\); k:=0;
  • While a<>0 do
  • Begin
    if a mod 2 = 0 then k:=k+1;
  • Read\(a\);
    end;
  • write \(k\)
    end.
  • Var b, s: real;
  • Begin
    Read\(b\); s:=0;
  • While b<>0 do
  • Begin
    S:=s+b;
  • Read\(b\);
    end;
  • write \(s\)
    end.