1) 8/2=4
4/2=2
2/2=1
12( приписали 2)
12/2=6
Ответ: 8 преобразуется в 6
2)12212
Дана последовательность, состоящая из 10 чисел [7, 3, 10, 9, 8, 4, 1, 6, 2, 5]. Вы умеете за один ход поменять в ней местами два
Waln
Const
a: array of integer = (7, 3, 10, 9, 8, 4, 1, 6, 2, 5);
begin
var n := 0;
var found := false;
repeat
found := false;
for var i := low(a) to High(a) - 1 do
if a[i] > a[i + 1] then begin
swap(a[i], a[i + 1]);
found := true;
n := n + 1;
end;
until not found;
writeln('Swaps = ', n);
end.
Ответ
Swaps = 30
Var a1, a2, a3, max: integer;
begin
writeln('a1=');
readln(a1);
writeln('a2=');
readln(a2);
writeln('a3=');
readln(a3);
if a1 > a2 then
max := a1 else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln;
<span>end.</span>