Изначально у нас есть четыре ёмкости из них :
одна 12/12 (полная) и три 0/5 ; 0/5 ; 0/3 (пустых).
Наглядно это весь процес выглядит следующим образом.
1) 12/12 ; 0/5 ; 0/5 ; 0/3 (это то что дано)
2) 7/12 ; 5/5 ; 0/5 ; 0/3
3) 2/12 ; 5/5 ; 5/5 ; 0/3
4) 2/12 ; 2/5 ; 5/5 ; 3/3
5) 0/12 ; 4/5 ; 5/5 ; 3/3
6) 3/12 ; 4/5 ; 5/5 ; 0/3
7) 3/12 ; 4/5 ; 2/5 ; 3/3
8) 6/12 ; 4/5 ; 2/5 ; 0/3
9) 6/12 ; 4/5 ; 0/5 ; 2/3
10) 1/12 ; 4/5 ; 5/5 ; 2/3
11) 1/12 ; 4/5 ; 4/5 ; 3/3
12) 4/12 ; 4/5 ; 4/5 ; 0/3
Program Program1;
var
i,j,k:integer;
A: array [1..6,1..4] of integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 4 do
a[i,j]:=random(100);
k:=0;
for i:=1 to 6 do
for j:=1 to 4 do
if a[i,j] mod 3 = 0 then inc(k);
writeln('Кратны трем ',k,' элем.');
end.
Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Надеюсь знаешь как это делать ,получится число 1111001
105 делиш на 2 пока не получишь 0 и в обратном порядке записываешь числа
<span>Упростим формулу
НЕ((Белки> 100) И (Углеводы < 100)) = (правило де Моргана)
= </span><span>НЕ(Белки> 100) ИЛИ НЕ(Углеводы < 100) =
</span>= (Белки <= 100) ИЛИ (Углеводы >= 100)
Белки <= 100 - молоко, масло, картофель
Углеводы >= 100 - крупа, картофель
Всего 4 строки