1. 1111₂+1100₂=11011₂ - ответ.
2. Рассмотрим каждое утверждение:
Если истинно утверждение, что "А делится на 55", тогда истины и 2 первых утверждения, потому что 55/5=11 55/11=5 - получается уже 3 истины, значит это ложное высказывание.
Если истинно высказывание: "А меньше 10", тогда <u>"А делится на 11" - ложь</u>. Отсюда истинная пара: "А меньше 10" и "А делится на 5".
Иначе, если "А меньше 10" - ложь, тогда остается пара: "А делится на 5" и " А делится на 11", но эта пара истинной быть не может, потому как если А делится на 11 и 5, то 11 должно делится на 5.
<u>Ответ: A=5</u>
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
<span>ЭТО называется: "инструментальные средства разработки", стыдно не знать.
</span>
Function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
else
if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
else Knight := false
end;
function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;
var
xk, yk, xq, yq: integer;
begin
Write('Укажите через пробел координаты коня [1..8]: ');
Readln(xk, yk);
Write('Укажите через пробел координаты ферзя [1..8]: ');
Readln(xq, yq);
if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
else
if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
else Writeln('Фигуры не угрожают друг другу')
end.
Примеры выполнения программы:
Укажите через пробел координаты коня [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 1 7
Ферзь бьет коня
Укажите через пробел координаты коня [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 7 7
Фигуры не угрожают друг другу
Укажите через пробел координаты коня [1..8]: 4 3
Укажите через пробел координаты ферзя [1..8]: 5 5
Конь бьет ферзя