Ответ:
сложно
Объяснение:
капец ничего не поняла простиии
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(Range(1,ReadInteger,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
01000001.10000000.11111111.00001100
Все четыре числа переводим в двоичную систему и каждое переведенное число записываем в восьмиразрядном виде
Например 65(10)
65 делим на 2 (берем только целую часть без округления) Получаем 32 Затем 32 делим на 2 и т.д.
65 32 16 8 4 2 1
1 0 0 0 0 0 1 если четное, пишем 0
65 = 1000001 = 01000001
Var
max,min,x,y,z:integer;
begin
readln(x,y,z);
//Найдём максимум
if (x>y) AND (x>z) then
max:=x
else
if (y>x) AND (y>z) then
max:=y
else
max:=z;
//Найдём минимум
if (x<y) AND (x<z) then
min:=x
else
if (y<x) AND (y<z) then
min:=y
else
min:=z;
//Результат
if (x<>min) AND (x<>max) then
writeln(min,' ',x,' ',max)
else
if (y<>min) AND (y<>max) then
writeln(min,' ',y,' ',max)
else
writeln(min,' ',z,' ',max)
end.