Нужно на Питоне Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись
числа 23 оканчивается на 1
15) Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись
числа 63 оканчивается на 23
53) Запись числа 344 в некоторой системе счисления выглядит так: 1A8N. Найдите основание системы
счисления N.
24)Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 25, запись
которых в двоичной системе счисления оканчивается на 101?
25) Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись
числа 30 оканчивается на 8
c = "E0".to_i(16) + i
puts "%s_16 = %s_8 = %s_4 = %s_2" % [c.to_s(16),c.to_s(8),c.to_s(4),c.to_s(2)]
end
e0_16 = 340_8 = 3200_4 = 11100000_2
e1_16 = 341_8 = 3201_4 = 11100001_2
e2_16 = 342_8 = 3202_4 = 11100010_2
e3_16 = 343_8 = 3203_4 = 11100011_2
e4_16 = 344_8 = 3210_4 = 11100100_2
e5_16 = 345_8 = 3211_4 = 11100101_2
e6_16 = 346_8 = 3212_4 = 11100110_2
e7_16 = 347_8 = 3213_4 = 11100111_2
e8_16 = 350_8 = 3220_4 = 11101000_2
e9_16 = 351_8 = 3221_4 = 11101001_2
ea_16 = 352_8 = 3222_4 = 11101010_2
eb_16 = 353_8 = 3223_4 = 11101011_2
ec_16 = 354_8 = 3230_4 = 11101100_2
ed_16 = 355_8 = 3231_4 = 11101101_2
ee_16 = 356_8 = 3232_4 = 11101110_2
ef_16 = 357_8 = 3233_4 = 11101111_2
a, real_coin: array[1..6] of integer;
forged_coin, i: integer;
begin
for i := 1 to 6 do
a[i] := 10;
forged_coin := random(6);
a[forged_coin] := random(4) + 8;
writeln(forged_coin);
for i := 1 to 6 do
write(a[i], ' ');
writeln;
forged_coin := 0;
if a[1] + a[2] = a[3] + a[4] then begin
real_coin[1] := a[1];
real_coin[2] := a[2];
if real_coin[1] = a[5] then
forged_coin := 6
else forged_coin := 5;
end
else begin
real_coin[1] := a[5];
real_coin[2] := a[6];
if a[1] + a[2] = real_coin[1] + real_coin[2] then begin
real_coin[3] := a[1];
real_coin[4] := a[2];
if real_coin[1] = a[3] then
forged_coin := 4
else forged_coin := 3;
end
else begin
real_coin[3] := a[3];
real_coin[4] := a[4];
if real_coin[1] = a[1] then
forged_coin := 2
else forged_coin := 1;
end;
end;
writeln(forged_coin);
end.