просто переводишь число 1100 из восьмеричной в десятичную систему счисления.
не забудь про лайк и 5 звёзд.
lebedev815
07.04.2023
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
Ерцкин_Овечкина391
07.04.2023
Program q1; uses crt; const n=10; var i,j:integer; mass:array [1..n] of integer; countNum:integer; // переменная для хранения количества нечетных чисел proizv:integer; // переменная для хранения произведения нечетных чисел BEGIN proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} Writeln('Случайные целые числа: '); for i:=1 to n do begin mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {Вычисление произведения и количества нечетных чисел} for i:=1 to n do if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. . begin inc(countNum); //увеличиваем на один кол-во нечетных чисел proizv:=proizv*mass[ i ]; // высчитываем произведение end; {Вывод результатов} writeln; writeln('Всего нечетных чисел: '+inttostr(countNum)); writeln('Их произведение: '+inttostr(proizv)); END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Чему равно число 1100 с основанием 8 в десятичной системе счисления?
Число 1100 в других системах счисления:
2 - 10001001100, 3 - 1111202, 4 - 101030, 5 - 13400, 6 - 5032, 7 - 3131, 8 - 2114, 9 - 1452, 10 - 1100, 11 - 910, 12 - 778, 13 - 668, 14 - 588, 15 - 4d5, 16 - 44c, 17 - 3dc, 18 - 372, 19 - 30h, 20 - 2f0, 21 - 2a8, 22 - 260, 23 - 21j, 24 - 1lk, 25 - 1j0, 26 - 1g8, 27 - 1dk, 28 - 1b8, 29 - 18r, 30 - 16k, 31 - 14f, 32 - 12c.