Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Очистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if a>0 then writeln('a = ',a) // иначе вывести "чисел нет" else writeln('чисел нет');end.
Переменная s примет значение 70, но вот вопрос, откуда взялась переменная (a). Вообще выйдет ошибка, так как такая переменная не объявлена
По условию задачи. Всего есть 12 возможных значений, т.о. система счисления здесь двенадцатеричная.
число указанно на картинке это 333 (в 12-чной системе).
Переводим в 10-ую систему
12*12*3+12*3+1*3 = 471
333 (12) = 471 (10)
ГБАВАВ, закодируем каждую букву двоичным кодом, который дан в задании, получим:
0111101010010100.
Чтобы представить в 16-тиричной системе счисления, поделим код на тетрады ( по 4 числа с конца ):
0111 1010 1001 0100
По таблице эквивалентности заменим каждое двоичное число шестнадцатиричным кодом:
7 А 9 4
Ответ: 7A94 в 16-ти ричной системе счисления.