У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001
//PascalABC.NET //Дан целочисленный массив из 40 элементов. Элементы массива могут //принимать значения от -10000 до 10000. Написать алгоритм, который //находит и выводит среднее арифметическое всех отрицательных элементов //массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один //такой элемент в массиве есть. Исходные данные объявлены так, как //показано ниже. Запрещается использовать переменные, не описанные //ниже, но разрешается не использовать часть из них.
const N = 40; var //a : array[1..N] of integer; i, s, r, x : integer; sr: real; begin //Для любителей заполнять вручную: //for i := 1 to 40 do readln(a[i]);
//Заполним массив 40-ка случайными значениями var a := ArrRandomInteger(N+1, -10000, 10000); //Гарантировано разместим число, оканчивающееся на 7 a[Random(0,40)] := -10 * Random(0,999) - 7; //Уберем лишний элемент, созданный автоматически a[0] := 0; //Напечатаем массив a.println; writeln('----------------'); //Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7 //число, учтём его foreach i in a do if (i < 0) and (i mod 10 = -7) then begin r += i; s += 1; write(i,' ') end; //Выведем среднее арифметическое writeln('Ср.ар: ',r/s) end.
Кількістю кодів, відрізняється