Информатика 8клас книга 2021гола лисенко риквінд і шатько

Var
  a:array[1..10000] of integer;
  i, n, first, last:integer;
  fl: boolean;
begin
  Read(n);
  For i:= 1  to n do
    Read(a[i]);fl:=false;
  For i:= 1 to n do
    if (a[i] mod 5 = 0) then
      if (fl = false) then begin
                               fl:= true;
                               first := i;
                               last:= i;
                           end
                           else
                               last := i;
   Writeln('Первый -> ', first);
   Writeln('Последный -> ', last);
       
end.

ответ:

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 способов.