9877
Объяснение:
Ну давайте вместе решим. Что такое 8? Это 2 в 3 степени. Тогда что такое 8^4024? Это (2^3)^4024 или 2^12072
4^1605 аналогично 2^3210.
Ну и 2^1024
126 в бинарной системе это 0111 1110
Теперь попробуем это вместе сложить.
Если призадуматься, то 2^N это значит в бинарной записи на N-той позиции стоит единица.
Значит 2^12072 это 1 и 12071 нулей
Далее у нас отнимается 2^3210. В оригинальном числе на этом позиции 0, значит нам следует занять числа и в итоге получается что у нас с 12070 позиции по 3210 будет стоять единицы.
Далее добавляется одна единица на 1024ой позиции.
На данный момент у нас 8861 единиц.
Чтобы отнять 126 нам надо будет срезать одну единицу на 1024ой позиции чтобы занять в меньшие биты. Однако, с 1023 по 1 позицию у нас будут стоять единицы.
8861 - 1 + 1023 = 9883
Однако 126 имел единицы в количестве 6 штук.
9883 - 6 = 9877
ответ 9877
Поделитесь своими знаниями, ответьте на вопрос:
Вpascalabc напишите программу, которая выводит все простые числа в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 ), у которых первая и последняя цифры десятичной записи одинаковые. входные данные входная строка содержит два натуральных числа, разделённые пробелом, k и n ( 2 ≤ k ≤ n ≤ 100000 выходные данные программа должна вывести все простые числа, у которых одинаковые первая и последняя цифры десятичной записи, в диапазоне от k до n в одну строку, разделив их пробелами. если таких чисел нет, нужно вывести число 0. примеры входные данные 100 200 выходные данные 101 131 151 181 191 входные данные 20 30 выходные данные 0
var k,n,i: longint;
co: byte;
function simply(a: longint ):boolean;
var i: longint;
begin
simply:=true;
for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin
simply:=false;
break
end
end
end;
function cr(a: longint): boolean;
var n: longint;
begin
n:=a;
cr:=false;
repeat
n:=n div 10;
until n mod 10 =n;
if n=(a mod 10) then
begin
cr:=true;
end;
end;
begin
readln(k,n);
for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then
begin
write(i,' ');
co:=1;
end
end;
if co=0 then write(0);
end.