Зробити електронну таблицю, в якій виконано завдання. Виробник випускає цукерки трьох видів. Відомо, що реалізація 1 кг цукерок “Червоний мак” дає прибуток 9 гривень, “Білочка” – 10 гривень, а “Ромашка” – 16 гривень.

Цукерки можна виробляти у будь-яких кількостях. Слід визначити скільки виробляти цукерок, щоб загальний прибуток був максимальним.

Сировина:
какао
цукор
наповнювач
прибуток

Норма витрат сировини
червоний мак:
18
6
5
9
білочка:
15
4
3
10
ромашка:
12
8
3
16

Запаси сировини:
360
192
180
-​

Язык не указан, поэтому запишу на универсальном языке. Потом просто подставите в свой язык.

x = длинна массива A1
y = длинна массива A2
z = длинна массива A3

цикл i от 0 до x:
    если i<=0:
        B1[0] = B1[0] + 1
    иначе:
        B1[1] = B1[1] + 1

цикл i от 0 до y:
    если i<=0:
        B2[0] = B2[0] + 1
    иначе:
        B2[1] = B2[1] + 1

цикл i от 0 до z:
    если i<=0:
        B3[0] = B3[0] + 1
    иначе:
        B3[1] = B3[1] + 1

Вот и все.
Можно было объединить эти 3 цикла в один двойной цикл, однако это работает не во всех языках.

//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f)  thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.

//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.

//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5)  thena:= a*aelsea:=a;write('a = ',a);end.

Объяснение: