ответ:
1. если делить так, чтоб в каждом пакете был один апельсин и все фрукты были разделены, то
чс из 3 по 2 * 2! ( чс из 7 по 4) = 210 - разделили все фрукты, и в каждом пакете по 5 фруктов.
2.если делить не все фрукты, но поровну, и чтоб в каждом был 1 апельсин:
(чс из 3 по 2 )* 2! ( чс из 7 по1 + (чс из 7 по 1 ) * ( чс из 6 по 2) + (чс из 7 по 3)* (чс из 4 по 4) ) плюс
(чс из 3 по 2 )* ((чс из 7 по 1)* (чс из 6 по 1) + (чс из 7 по 2)*(чс из 5 по 2) +
(чс из 7 по 3)* (чс из 4 по 3)) = 6* ( 7+105+35) + 3* (42+210+140) = 2058 способов.
a: array [1..20] of 2..5; //Массив оценок учеников
i: integer;
n: array [2..5] of 2..5; //Массив счетчиков оценок
begin
for i:= 2 to 5 do //Обнуляем счетчики оценок
n[i]:= 0;
for i:= 1 to 20 do //Вводим оценки учеников и считаем их
begin
writeln('Введите оценку ', i, ' ученика');
readln(a[i]);
if a[i] = 2 then n[2]:= n[2] + 1;
if a[i] = 3 then n[3]:= n[3] + 1;
if a[i] = 4 then n[4]:= n[4] + 1;
if a[i] = 5 then n[5]:= n[5] + 1;
end;
for i:= 2 to 5 do
writeln('Количество получивших ', i, ' за диктант равно: ', n[i]); {Выводим значения счетчиков}
end.
3) Program zada4a3;
