(A<span>*B)∨(A*</span>¬B) ≡ A
A B A*B (A*¬B) (A*B)∨(A*¬B)
1 1 1 0 1
1 0 0 1 1
0 1 0 0 0
0 0 0 0 0
Второе<span> т.к 0.3 * 10=3 и 3*100000=300000</span>
Var A, gradus, minut, N: real;
Begin
Writeln('Введите A градусов');
readln(A);
Writeln('До какой температуры остужать:');
readln(N);
gradus:=100-A;minut:=1;
While (gradus>N) do
Begin
A:=A*(1-0.15);
gradus:=gradus-A;
minut:=minut+1;
end;
Writeln('Кипяток остынет до ',N,' градусов через ', minut, ' минут');
readln();
<span>end.</span>
<span>28МАЯ
1. длина цепочки </span>28МАЯ (5) нечётна ⇒ 28АЯ ⇒ 39АЯ
2. длина цепочки 39АЯ (4) чётна ⇒ 139АЯ ⇒ 240АЯ