• Ввести n чисел вывести количество чётных.(Паскаль)

Ответы 1

  • Program n1;var a,i,n,k: integer;beginreadln(n);k:=0;for i:=1 to n dobeginreadln(a);if a mod 2=0 then k:=k+1;end;write(k);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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