• Напишите программу для решения следующей задачи.

    На контрольной работе по алгебре ученикам 9 класса было предложено 10 примеров. Неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. Сколько неудовлетворительных оценок было получено учениками? Если хотя бы один из учеников правильно решил все задачи, выведите YES, иначе выведите NO.

    Программа получает на вход количество учеников в классе N (1 ≤ N ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров.
    (Pascal)

Ответы 6

  • буду признателен
  • Я бы с радостью,но не знаю как
  • ну, ничего страшного.
    • Автор:

      aleena
    • 6 лет назад
    • 0
  • так или иначе, я вам помог
    • Автор:

      aryn
    • 6 лет назад
    • 0
  • и я вам признательна за это
  • var a,b,c,d,e:integer;begind:=1;e:=0;writeln('введите количество учеников');readln(a);for b:=1 to a do beginwriteln('введите количество правильных ответов для ',d,' ученика' );readln(c);while (c>10) or (c<0) do beginwriteln('вы ввели неверное число, попробуйте снова');readln(c);end;if c = 10 then e:=e+1;d:=d+1;end;if (e>=1) then writeln('yes ')else writeln('no');end. 
  • Добавить свой ответ

Войти через Google

или

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

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

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