Я само ведро буду обозначать цифрой обозначающей его объём , например восьми литровый бидон это 8 ,а сколько в нём на данный масла цифрой в скобках, например (1);
из 8(8) в 3(5)
из 8(5) в 5(5)
из 3(3) в 8(3)
из 5(5) в 3(3)
из 3(3) в 8(6)
из 5(2) в 3(2)
из 8(6) в 5(5)
из 5(5) в 3(3) <== после этого переливания в 5 литровом бидоне остаётся 4 литра
из 3(3) в 8(4)<== после этого переливания в 8 литровом бидоне остаётся 4 литра
262144 байта/ 1024= 256 кбайт/ 1024=0,25 мбайт
Збс, клевое задание................
<span>НЕ ((число <=40) и НЕ (число нечетное))
</span>1) НЕ ((37 <=40) и НЕ (37 нечетное)) ⇒ НЕ (Истина и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
2) НЕ ((40 <=40) и НЕ (40 нечетное)) ⇒ НЕ (Истина и НЕ Ложь) ⇒ НЕ Истина ⇒ Ложь
3) НЕ ((51 <=40) и НЕ (51 нечетное)) ⇒ НЕ (Ложь и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
4) <span>НЕ ((62 <=40) и НЕ (62 нечетное)) </span>⇒ НЕ (Ложь и НЕ Ложь) ⇒ НЕ Ложь ⇒ Истина
Ответ: 2) 40
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>