<span>Ячейка памяти хранит 1 бит информации. Таким образом:</span>
Var x,y:integer;
begin
write('x = ');
readln(x);
y:=x div 10 mod 10;
writeln('y = ',y);
end.
Пример:
x = 456
y = 5
1-4=-3; (2);
(-3)^2=9; (1);
9-4=5; (2);
5^2=25; (1);
25-4=21; (2);
Ответ: 21212
Методом сортировки выбором:
<span />
543261
--- 1
143265
--- 2
123465
--- 3
123456
<span />
Следовательно, за 3 перестановки.