<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
function NOD(var a,b:integer):integer;
begin
if a>b then a:=a-b
else
if b>a then b:=b-a;
if a=b then Result:=b
else Result:=NOD(a,b)
end;
begin
var (a,b):=(21,14);
Writeln(NOD(a,b))
end.
Алгоритм Евклида работает <u>только для натуральных чисел</u>!
Пусть
(x∉A) ≡ ¬А ; (x ∉ P) ≡ ¬P; (x ∈ Q) ≡ Q.
(просто заменяешь скобки на буквы, A и P знак ¬ потому что там " ∉ " )
¬А⇒¬PvQ
Теперь применим формулу ( A⇒B можно заменить на ¬АvB)
Аv¬PvQ
Теперь смотрим на отрезки
<span>P = [10, 25] и Q = [0, 12]
И у нас есть формула : </span>Аv¬PvQ
Смотрим.
¬P ( читается как НЕ P ) значит закрашиваем все что за пределами P = [10, 25] ( у меня зеленым.
Q закрашиваем все что в этом отрезке.
Нам нужен такой отрезок А что бы покрывал то пустое место.
Ответ: <span>А [12;40]</span>
Полусумма кубов это сложение двух кубов деленных на 2 или на половину (с³+d³)/2
При использовании 1024-символьного алфавита для хранения одного символа требуется log(2)1024 = 10 бит.
Объем сообщения = 32*10 = 320 бит = 320/8 байт = 40 байт