S(пока S больше или равно нулю начинай)
701-70
631-70
561-70
491-70
421-70
351-70
281-70
211-70
141-70
71-70
1-70
-69
N при этом
7+1
8+1
9+1
10+1
11+1
12+1
13+1
14+1
15+1
16+1
17+1
18
N=18
наверное как-то так
Нужно с конца про нумеровать их(над ними карандашом написать 0,1,2,3,4...)потом 1×2\6 ( 6 писать как например 2в квадрате над верхом с право)(×2 потому что нужно перевести в десятичную из двоичной) получается :1×2\6+0×2\5+0×2\4+0×2\3+1×2\2+1×2\1+0×2\0=64+4+2=70( при умножении на ноль результат ноль,так што умножай то что с единицей!!!)
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.
Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя
Здесь идёт чередование чётных чисел с нечётными