Переведем 31 в двоичную=11111-это число R Сказано,что оно на два разряда больше,чем исходное N Т.е. N=111|11=111 Прогоним 111 по данному алгоритму: 1)Число единиц не четно,значит добавляем 0>>1110 2)3/2=1,значит добавляем 1>>11101 Видим,что 11101<11111,значит исходное N увеличиваем на 1,получим 1000 Прогоняем по алгоритму 1000: 1)Число единиц нечетно,добавляем 0>>10000 2)Остаток от деления числа единиц=1,добавляем 1>>100001 Мы получили число 100001-это R.Оно больше,чем 11111. Переведем его(100001) в десятичную систему счисления=33 ответ:33
Сказано,что оно на два разряда больше,чем исходное N
Т.е. N=111|11=111
Прогоним 111 по данному алгоритму:
1)Число единиц не четно,значит добавляем 0>>1110
2)3/2=1,значит добавляем 1>>11101
Видим,что 11101<11111,значит исходное N увеличиваем на 1,получим 1000
Прогоняем по алгоритму 1000:
1)Число единиц нечетно,добавляем 0>>10000
2)Остаток от деления числа единиц=1,добавляем 1>>100001
Мы получили число 100001-это R.Оно больше,чем 11111.
Переведем его(100001) в десятичную систему счисления=33
ответ:33
1)
var
n,x,s,i : integer;
begin
s:=0;
write('Введите n: '); read(n);
for i:=1 to n do
begin
write('X - ', i, ' = '); read(x);
if x mod 10 = 9 then
s:=s+n;
end;
writeln('Сумма с 9 на конце = ', s);
end.
2)
var
n,i,max,x : integer;
begin
max:=0;
write('Введите n: '); read(n);
for i:=1 to n do
begin
if (x > max) and (x mod 5 = 0) then
max:=x;
write('X - ',i,' = '); read(x);
end;
writeln('Максимальное, кратное 5 = ', max);
end.
3)
var
a,b,i : integer;
begin
write('a = '); read(a);
write('b = '); read(b);
for i:=a to b do
begin
if (i mod 4 = 0) and (i mod 6 <> 0) then
writeln(i);
end;
end.