• Определить сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы.Паскаль.

Ответы 1

  • var N,i,x,k:integer; begin;writeln('Сколько элементов в последовательности?');readln(N);writeln('Введите последовательность чисел');for i:=1 to N do  begin                    readln(x);     if odd(x) then               k:=k+1end;writeln(k/N*100,' %');           end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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