• Написать программу, которая вычисляет количество четных чисел. Последовательность всех чисел задается с клавиатуры. Признаком окончания ввода последовательности чисел является значение любого отрицательного числа. Диапазон чисел {-10000;10000}

Ответы 1

  • var x,y:integer; begin y:=0; repeat writeln('Введите число'); read(x); if x mod 2 =0 then y:=y+1; until x<0; writeln('Количество четных цифр = ',y); end.
    • Автор:

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

Войти через Google

или

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

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

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