1) (0&1)&1 = 0&1 = 0
2) 1&1&1&1 = 1
3) ((1&1) v 0) & (0 v 1) = (1 v 0) & (0 v 1) = 1 & 1 = 1
Решение №1
var x,y:integer;
begin
readln(x,y);
if x> y then begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(x,' ',y);
end.
Тестовое решение:
8 5
5 8
Решение №2
На PascalABC.Net можно сделать проще:
var x,y:integer;
begin
readln(x,y);
if x>y then begin swap(x,y); println(x,y); end;
end.
Program ops;
var a,b,c,d:integer;
s: real;begin
writeln('введите четырёхзначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
d:=a mod 10;
a:=a div 10;
s:=(b+c+d+a)/4;
writeln(s);
end.<span>
</span>
В-3
О-16
Д-5
О-16
Л-13
А-1
З-9
К-12
А-1
<span>ВОДОЛАЗКА</span>