• Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно.

Ответы 1

  • var i,k:byte;

    begin

    i:=1;

    while i<>0 do begin

    readln(i);

    if (i<>0) and (i mod 2=0) then inc(k);

    end;

    writeln(k);

    end.

    • Автор:

      deziqgdm
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years