Белки спрятали в дупле n орехов. каждый день они брали половину для себя и своих друзей. если число орехов было нечетным, то они откладывали один орех в сторону, а остальные делили пополам, причём отложенный орех опять возвращали в дупло. напишите программу, подсчитывающую, сколько орехов останется в мешке через к дней? в с++ сделать

Program arrayMinValueSwapFirst;var  numbers: array [1..10] of integer;  maxValIndex: integer;begin  write('Исходный массив: ');  for var i: integer := 1 to 10 do  begin    numbers[i] := random(11);    write(numbers[i]);    if i < 10 then      write(', ');  end;  var minVal: integer := -1; // Сюда записываем рекорд по значению  for var i: integer := 1 to 10 do    if (numbers[i] > minVal) then    begin      minVal := numbers[i];      maxValIndex := i;    end;  writeln();  writeln('Индекс максимального: ', maxValIndex);  var buf: integer := numbers[1];  numbers[1] := minVal;  numbers[maxValIndex] := buf;  write('Результат      : ');  for var i: integer := 1 to 10 do  begin    write(numbers[i]);    if i < 10 then      write(', ');  end;end.

Вот:

uses Crt; var A, B, C; integer; begin ClrScr;    while (A > -10) and (A < 10) do    while (B > -10) and (B < 10) do     begin write(' Ввести два целых числа: ');    readln(A, B);     C:= A * B; writeln(' Произведение равно: ' ,C); end; writeln(' Программа завершена.');    readln end.

На выходе:

uses Crt; var A, B, C; integer; begin ClrScr;    while (A > -10) and (A < 10) do    while (B > -10) and (B < 10) do     begin write(' Ввести два целых числа: ');    readln(A, B);     C:= A * B; writeln(' Произведение равно: ' ,C); end; writeln(' Программа завершена.');    readln end.