<span>Логическая операция ⊕ - это "исключающее ИЛИ" (xor в языках Паскаль, Бейсик и т.д.), а → операция присваивания.
Тогда a⊕b→a; a⊕b→b; a⊕b→a - это был обмен значениями a ↔ b
Теперь по этой же схеме обменяем местами b и с:
b⊕c→b; </span>b⊕c→с; <span>b⊕c→b.
Результат: b→a; c→b; a→c
<u>Программа для иллюстрации:</u>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=50;
var b:=-20;
var c:=0;
Println('Исходные значения: a=',a,'b=',b,'c=',c);
a:=a xor b; b:=a xor b; a:=a xor b;
b:=b xor c; c:=b xor c; b:=b xor c;
Println('Результат обмена: a=',a,'b=',b,'c=',c)
end.
<u>Результат:</u>
Исходные значения: a= 50 b= -20 c= 0
Результат обмена: a= -20 b= 0 c= 50 </span>
1. Ответ: 43 mod 6 = 1
32 div 5 = 6
2. |x + y - x * x/(y * √x - y)|
3.abs(exp(ln(x)*2) + exp(ln(y) * 3)/ (2 * a))
4. b = 75
a = 45
Если понять принцип формирования числа в восьмеричной системе счисления, то станет ясно - после каждого перехода от семерки к новому числу, прибавляется одна цифра. Если 17 перевести в двоичную, получим 1111. Значит, следующее число даст нам 10000. В восьмеричной системе следующим будет 20
1 Дано слово ,,КОМПЬЮТЕР". Составить программу получения слов ,,КОМ", ,, РЕТРО'', ,, РОК", используя только буквы исходного слов
Малинка-я
<u><em>*** 1 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
Writeln(w[1:4]);
Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]);
Writeln(w[w.Length]+w[2::-1])
end.
<u><em>Результат</em></u>
КОМ
РЕТРО
РОК
<u><em>*** 2 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
var i:=ReadInteger('i=');
Swap(w[i],w[w.Length]);
Writeln(w)
end.
<u><em>Тестовое решение</em></u>
i= 5
КОМПРЮТЕЬ
<u><em>*** 3 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='ПАР'; // исходное слово
var k:=4; // константа сдвига шифра Цезаря
var a:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯАБВГ';
for var i:=1 to w.Length do begin
var p:=Pos(w[i],a);
if p>0 then w[i]:=a[p+k]
end;
Writeln(w)
end.
<u><em>Результат</em></u>
УДФ
