• Задана последовательность из n вещественных чисел. Определить
    количество четных и количество нечетных элементов
    последовательности.
    оператор цикла с параметром;

Ответы 2

  • ну вот тебе внутренняя часть проги:k:=0;while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
    • Автор:

      dixie61
    • 6 лет назад
    • 0
  • program p;var n,a,k,m,i:integer;beginwriteln ('Введите n');write ('n=');readln (n);k:=0;m:=0;for i:=1 to n do beginreadln (a);if a mod 2=0 then k:=k+1else m:=m+1;end;writeln ('Количество четных ',k);writeln ('Количество нечетных ',m);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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