тест 10 позиционные системы счисления
в-2
1. какое минимальное основание n должно быть у системы
счисления, чтобы в ней были правильными
записи 721n, 333, 642 и 221?
2. отметьте число, которое делится на 16.
1) 1234 2) 1114 3) 2004 4) 2214
3. выберите наименьшее из чисел.
1) 1; 2) 16 3) 1; 4) 1 5) 1
4. запишите число 2335 в десятичной системе счисления.
5. в системе счисления с некоторым основанием n десятичное
число 129 записывается в виде как 1004. найдите это основание.
6. найдите все основания систем счисления, в которой запись
числа 31 оканчивается на 11.
7. запишите число 79 в системе счисления с основанием 5.
При перезаписи блока и очередной переоценке необходимо учитывать типы данных в блоке до перезаписи (T0), после перезаписи (T1) и в соседних блоках (TL, TR).
Если T0 = T1, то количество кусков данных не изменяется, т.е. W[i+1] = W[i]
TL = T0 = TR <> T1 -> W[i+1] = W[i] + 2
TL = T1 = TR <> T0 -> W[i+1] = W[i] - 2
TL = TR, T0 <> TL, T1 <> TL -> W[i+1] = W[i]
Далее рассмотрим случаи, когда TL <> TR
(TL = T0, TR = T1) или (TR = T0, TL = T1) -> W[i+1] = W[i]
(TL = T0, TR <> T1) или (TR = T0, TL <> T1) -> W[i+1] = W[i] + 1
(TL = T1, TR <> T0) или (TR = T1, TL <> T0) - > W[i+1] = W[i] - 1
Если все четыре типа не совпадают, то W[i+1] = W[i]
Если перезаписывается блок с адресом 0, считать, что тип TL не совпадает ни с одним из трех других.Аналогично при перезаписи блока с адресом , но для TR.
Вроде все?
begin
var (a, b) := ReadInteger2; // Считывание a и b
var simple := ArrFill(b + 1, true); // Инициализация булевого массива значением true.
// Реализация решета Ератосфена
for var i := 2 to b do
if simple[i] then
begin
var j := i * i;
while (j <= b) do
begin
simple[j] := false;
j += i;
end;
end;
// Вывод на экран найденного результата
for var i := a to b do
if (simple[i]) and (i > 1) then i.Print
end.