1) 203, минимальная система счисления - 4-ричная. 2 * 4^2 + 0 * 4^1 + 3 * 4^0 = 35 2) 10002, минимальная система счисления - 3-ичная. 1 * 3^4 + 0 * 3^3 + 0 * 3^2 + 0 * 3^1 + 2 * 3^0 = 83 3) 11111, тут может быть двоичная система счисления, но также возможна унарная, в которой лишь одна цифра - 1. То есть десятичная запись числа получается просто нахождением количества единиц. В первом случае будет: 1 * 2^4 + 1 * 2^3 + 1 * 2^2 + 1 * 2^1 + 1 * 2^0 = 31 Во втором случае будет 5. 4) 2A, тут 11-ричная система счисления, так как цифры 0-9 и A. 2 * 11^1 + 10 * 11^0 = 32.
procedure Calc(x: integer; var L: integer; var M: integer); begin L := 0; M := 0; while x > 0 do begin L := L + 1; if M < (x mod 5) then M := x mod 5; X := x div 5; end; end;
begin for x := 100 to 500 do begin Calc(x, L, M); if (L = 3) and (M = 4) then Println(x, L, M); end; end.
суть процедуры заключается в том что она вычисляет кол-во цифр в 5ричном числе (L) и максимальну цифру в числе (М) Максимальным для L=3 M=4 будет 124 или "444"_5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку