• Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз

Ответы 1

  • begin write('Введите n: ');  var n := ReadInteger; var c := 0; for var i:=1 to n do begin write ('Введите целое число: '); var x := ReadInteger; if x mod 2 <> 0 then c += 1;  end; writeln('Количество нечетных равно ', c);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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