В шкільній їдальні продається сік двох різновидів: апельсиновий – 11,50 грн., персиковий – 9,40 грн.. У завідуючої їдальні нема повної інформації відносно потенціального прибутку і того, на який сік потрібно робити ставку. До ть їй вирішити це питання, якщо умови продажу дозволяють виготовляти на тиждень 500 стаканів соку (будь-якого виду), а обмеження в поставках персиків  дозволяють виготовити на тиждень не більше 270 стаканів персикового соку. Визначити скільки соку і якого потрібно продати, щоб їдальня отримати максимальний прибуток.

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.

1.Клацніть клітинку, щоб вибрати її. Або скористайтеся клавіатурою, щоб перейти до неї й вибрати її.

Щоб вибрати діапазон, виділіть клітинку, а потім натисніть ліву кнопку миші, перетягніть вказівник миші на інші клітинки.

Або виберіть діапазон, натиснувши Shift + клавіша зі стрілкою

Щоб вибрати несуміжні клітинки й діапазони клітинок, виберіть потрібні клітинки, утримуючи натиснутою клавішу Ctrl.

2.Виберіть клітинку або діапазон клітинок.

Натисніть кнопку Копіювати або клавіші Ctrl+C.

Натисніть кнопку Вставити або клавіші Ctrl+V.

Объяснение:

давно здавал тоже