Что делать если пишет: the requested url was not found on this server. sorry for the inconvenience. please report the following information to us. thank you very much! url: server: customer.worldstream.nl date: 2018/10/28 03: 01: 27 powered by vpz (за адрес не найден на этом сервере. приносим извинения за неудобства. сообщите нам следующую информацию. большое ! url: сервер: customer.worldstream.nl дата: 2018/10/28 03: 01: 27 работает на vpz) подскажите

Создай файл или перенаправление с адреса (через .htaccess и скрипт) "video/e272f3ee9869f2992165116005e3686b/iframe". Судя по наличию хэша, это именно перенаправление, а не реально существующий файл, которое открывает код для вывода фрейма, в обратном случае выкидывает на ошибку URL. Тогда нужно внести в базу значение этого хэша, и ссылка будет открываться.

Для начала переведем всё числа в десятеричную систему счисления:
M=33257(10)
L = 97A(16) =  9 * 16^2 + 7 * 16^1 + A * 16^0 = 9 * 256 + 7 * 16 + 10 * 1 = 2304 + 112 + 10 = 2426(10)
T = 76705(8) = 7 * 8^4 + 6 * 8^3 + 7 * 8^2 + 0 * 8^1 + 5 * 8^0 = 7 * 4096 + 6 * 512 + 7 * 64 + 5 * 1 = 28672 + 3072 + 448 + 5 = 32197(10)
p = FB01(16) = F * 16^3 + B * 16^2 + 0 * 16^1 + 1 * 16^0 = 15 * 4096 + 11 * 256 + 1 = 61440 + 2816 + 1 = 64257(10)
K = 1 0000 0000 0011 0101(2) = 1 * 2^16 + 0 * 2^15 + ... + 0 * 2^6 + 1 * 2^5 + 1 * 2^4 + 0 * 2^3 + 1 * 2^2 + 0 * 2^1 + 1 * 2^0 = 65536 + 32 + 16 +  4 + 1 = 65589(10)

Теперь подставим числа в формулу и получим результат:

M + 9L - K - 2T + p = 33257 + 9 * 2426 - 65589 - 2 * 32197 + 64257 = 33257 + 21834 - 65589 - 64394 + 64257 = -10635

ответ: -10635

P.S. У вас T тоже самое, что p. Так и должно быть?

С использованием составных условий:

Program Type1;
Var X1, Y1, X2, Y2: Integer;
BeginWriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 = -X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 = -X2) And (Y1 = Y2) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (X1 = X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.

Без использования составных условий:

Program Type2;
Var X1, Y1, X2, Y2: Integer;
Begin
WriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 + X2 = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 + X2 = 0) And (Abs(Y1) - Abs(Y2) = 0) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (Abs(X1) - Abs(X2) = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.