Для небольших значений k вполне подойдет очередь.
var i,n,k,lf,rt,bg,nd: integer;
<span> a: array[1..50000] of integer;
</span><span>begin
</span><span> write('N = '); readln(n);
</span><span> write('K = '); readln(k);
</span><span> for i:=1 to 50000 do a[i]:=0;
</span><span> bg:=1; nd:=1;
</span><span> a[bg]:=n;
</span><span> repeat
</span><span> n:=a[bg];
</span><span> if n mod 2 = 0 then lf:=(n div 2)-1
</span><span> else lf:=n div 2;
</span><span> if n mod 2 = 0 then rt:=lf+1
</span><span> else rt:=lf;
</span><span> inc(nd);
</span><span> a[nd]:=rt; inc(nd);
</span><span> a[nd]:=lf;
</span><span> inc(bg);
</span><span> dec(k);
</span><span> if nd>49500 then
</span><span> begin
</span><span> writeln('слишком большое k');
</span><span> exit;
</span><span> end;
</span><span> until k=0;
</span><span> writeln(lf,' ',rt);
end. </span>
N = 12456987
<span>K = 23198
379 379
</span>
N = 20
<span>K = 4
</span><span>2 2
</span><span>
N = 20
K = 5
1 2
</span>
1) Компьютер приобретёт элементы интеллектуальности.
2) Общение с ним максимально будет приближено к человеческому языку.
3) Метод обработки информации у будущих компьютеров, как в природе, станет аналоговым, и не как сейчас, цифровым.
4) Виртуальность приобретёт реальные черты, предметы станут ощутимыми, человеческим органам чувств.
а можно узнать где таблица, и что тут решать то?
Все процессы тела.
ТОЛЬКО процессы
<span>1)
var
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do
If (a[i] > -1) then write(a[i]:2);
End.
2)
var
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов')
else writeln('Больше min элементов');
End.
3)
var
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin read(a[i]);
if (a[i] = x ) then inc(k);
end;
writeln('kol = ',k) ;
end.<span>
</span></span>