Uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end;
begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.
<span>отдельное предписание исполнителю о выполнении некоторого законченного действия - команда</span>
2. 128 = 10000000
256 = 100000000
512 = 1000000000
<span> 1024 = 1000000000
</span>
3. 1000001 = 65
10000001 = 129
<span> 100000001 = 257
</span> 1000000001 = 513
<span>4.
101 = 5 </span>
11101 = 29
101010 = 42
100011 = 35
<span> 10110111011 = 1467
</span>
5.
2= 10
7= 111
17= 10001
68= 1000100
315= 100111011
765= 1011111101
2047= 11111111111
<span>6.
11+1=100
111+1=1000
1111+1=10000
11111+1=100000
</span>
<span>7. </span>
111*10=1110
111*11=10101
1101*101=1000001
<span> 1101*1000=1101000</span>
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как тебе такое решение видимо надо, то держи именно такое :)