Задача 6280. Источник: Поляков. Задание КИМ 5
(PRO100 ЕГЭ) На вход алгоритма подаётся натуральное число N (N > 3). Алгоритм строит по нему новое число R следующим образом:
- Строится двоичная запись числа N.
- Далее эта запись обрабатывается по следующему правилу:
- если N делится на 5, то в конец этой записи дописывается три последние цифры двоичной записи;
- если N не делится на 5, то остаток при делении на 5 числа N умножается на 5, переводится в двоичную запись и дописывается в конец двоичной записи числа N.
- Полученная таким образом запись является двоичной записью искомого числа R.
Например, для исходного числа 1210 = 11002 результатом является число 110010102 = 20210, а для исходного числа 1010 = 10102 результатом является число 10100102 = 8210.
Укажите максимальное число N, после обработки которого с помощью этого алгоритма получается число R, меньшее 100. В ответе запишите это число в десятичной системе счисления.
Решение
Переберем заведомо достаточный диапазон значений n и проанализируем результат работы алгоритма. Алгоритм можно реализовать, как через целочисленные операции, так и через работу со строками. На Python оба решения будут не сильно отличаться по объему кода, но на C++ и PascalABC работа со строками потребует написания функций преобразования систем счисления.
Python через строки
mx = 0
for n in range(4, 100):
s = bin(n)[2:]
if n % 5 == 0:
s += s[-3:]
else:
s += bin(n % 5 * 5)[2:]
r = int(s, 2)
if r < 100:
mx = n
print(mx)
Python через целочисленные операции
mx = 0
for n in range(4, 100):
if n % 5 == 0:
r = n * 8 + n % 8
else:
z = n % 5 * 5
m = 2
while m <= z:
m *= 2
r = n * m + z
if r < 100:
mx = n
print(mx)
PascalABC через строки
function Bin(n: Integer): String;
begin
result := '';
while n > 0 do
begin
result := IntToStr((n mod 2)) + result;
n := n div 2;
end;
if result = '' then
result := '0';
end;
function Int(s: String; r: Integer := 10): Integer;
var
n, i: Integer;
begin
result := 0;
n := 1;
for i := s.Length downto 1 do
begin
result := result + StrToInt(s[i]) * n;
n := n * r;
end;
end;
var
n, max, r: Integer;
s: String;
begin
max := 0;
for n := 4 to 99 do
begin
s := Bin(n);
if n mod 5 = 0 then
s := s + s[s.Length - 2:]
else
s := s + Bin(n mod 5 * 5);
r := Int(s, 2);
if r < 100 then
max := n;
end;
Writeln(max);
end.
PascalABC через целочисленные операции
var
n, r, max, z, m: Integer;
begin
max := 0;
for n := 4 to 99 do
begin
if n mod 5 = 0 then
r := n * 8 + n mod 8
else
begin
z := n mod 5 * 5;
m := 2;
while m <= z do
m := m * 2;
r := n * m + z;
end;
if r < 100 then
max := n;
end;
Writeln(max);
end.
C++ через строки
#include <iostream>
#include <string>
using namespace std;
string bin(int n)
{
string s = "";
while (n > 0)
{
s = to_string(n % 2) + s;
n /= 2;
}
if (s == "")
s = "0";
return s;
}
int to_int(string s, int r)
{
int n = 0, z = 1;
for (int i = s.length() - 1; i >= 0; i--)
{
n += ((int)s[i] - 48) * z;
z *= r;
}
return n;
}
int main()
{
int max = 0;
for (int n = 4; n < 100; n++)
{
string s = bin(n);
if (n % 5 == 0)
s += s.substr(s.length() - 3, 3);
else
s += bin(n % 5 * 5);
int r = to_int(s, 2);
if (r < 100)
max = n;
}
cout << max << endl;
}
C++ через целочисленные операции
#include <iostream>
using namespace std;
int main()
{
int max = 0;
for (int n = 4; n < 100; n++)
{
int r;
if (n % 5 == 0)
r = n * 8 + n % 8;
else
{
int z = n % 5 * 5;
int m = 2;
while (m <= z)
m *= 2;
r = n * m + z;
}
if (r < 100)
max = n;
}
cout << max << endl;
}
Ответ
11