Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
Var A,B:real;count:integer;
begin
readln(A,B);
while A<B do
beginA:=A+A/100*15;
count:=count+1;
end;
writeln(count);
<span>end.</span>
Меньше 4-х тут ничего нету. Обращаем первое: x >= 7. Т. е. это 7 и 8.
1 - истина
0 - ложь
a=1
b=0
c=1
--------------------------
1) a*b=0
2) a+b=1
3) НЕa+b=0
4) a*b+c=1
5) a+b*c=1
6) НЕa+b*c=0
7) (a+b)*(c+b)=1
8) НЕ(a+b)*(c+b)=НЕa*НЕb*(c+b)=0
9) НЕ(a*b*c)=НЕa+НЕb+НЕc=1