Текстовые Графические Звуковые файлы Видеофайлы файлы файлы Название Размер Название Размер название | Размер нааnание | Размер Итого Документы.rar Размер Итого Графика.rar Размер Итого Музыка.rar Размер Итого Видео.rar Размер
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.
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.
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. Так и должно быть?