Белки спрятали в дупле N орехов. Каждый день они брали половину для себя и своих друзей. Если число орехов было нечетным, то они откладывали один орех в сторону, а остальные делили пополам, причём отложенный орех опять возвращали в дупло. Напишите программу, подсчитывающую, сколько орехов останется в мешке через К дней?
Var n,k,m,i:integer; begin write(n = ); readln(n); write(k = ); readln(k); m:=n; for i:=1 to k do m:=(m div 2)+(m mod 2); writeln(m = ,m); end.
Пример: n = 1000 k = 5 m = 32
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
