• Помогите. Очень срочно надо
    Введите N чисел(N предварительно вводится с клавиатуры). Выведите количество четных.

Ответы 1

  • varn, i, count, a: integer;beginwrite('Введите N: ');readln(n);count := 0;for i := 1 to n dobeginreadln(a);if a mod 2 = 0 thencount := count + 1;end;writeln('Кол-во чётных = ', count);end.
    • Автор:

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

Войти через Google

или

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

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

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