Question

Дано N оценок (от 2 до 5). Сколько среди них двоек и четверок? Pascal​

Answer 1

Ответ:

##

var n := ReadInteger;

var a := ArrRandom(n, 2, 5);

a.Println;

Print('Двоек:', a.CountOf(2), '  четверок:', a.CountOf(4))

Объяснение:

Answer 2

Для решения этой задачи можно использовать переменные-счетчики для двоек и четверок. Начальные значения счетчиков устанавливаются равными нулю.

Затем мы просматриваем каждую оценку в списке и проверяем, является ли она двойкой или четверкой. Если оценка равна 2, увеличиваем счетчик двоек на единицу. Если оценка равна 4, увеличиваем счетчик четверок на единицу.

В конце процесса просмотра всех оценок, мы получаем количество двоек и четверок.

Пример кода на Pascal:

var
  N, rating, countTwos, countFours: integer;
begin
  countTwos := 0;
  countFours := 0;
  
  write('Введите количество оценок: ');
  readln(N);
  
  for var i := 1 to N do
  begin
    write('Введите оценку: ');
    readln(rating);
    
    if rating = 2 then
      countTwos := countTwos + 1
    else if rating = 4 then
      countFours := countFours + 1;
  end;
  
  writeln('Количество двоек: ', countTwos);
  writeln('Количество четверок: ', countFours);
end.

В этом примере мы сначала объявляем переменные N (количество оценок), rating (текущая оценка), countTwos (счетчик двоек) и countFours (счетчик четверок). Затем мы инициализируем счетчики нулевыми значениями.

Затем мы запрашиваем у пользователя количество оценок (N) и в цикле просим пользователя ввести каждую оценку. Если оценка равна 2, увеличиваем счетчик двоек на единицу. Если оценка равна 4, увеличиваем счетчик четверок на единицу.

В конце цикла мы выводим количество двоек и четверок на экран.

Надеюсь, это поможет вам решить задачу!