Формат входных данных:

Дано целое число A и натуральное число i.

Формат выходных данных:

Обнулите у числа A его последние i бит и выведите результат обнуления.

Помогите скорей, кто понимает, о чём идет речь!

Сдвигаем число А вправо на i бит, а потом сдвигаем результат влево на i бит. Освободившиеся правые разряды автоматически заполняются нулями.

var

a, i, j: integer;

begin

Write ('Введите через пробел целое А и натуральное i: ') ;

Readln (a, i) ;

a : = (a shr i) shl i;

Writeln ('a=', a)

end.

Тестовое решение:

Введите через пробел целое А и натуральное i: 124 5

a=96