Для перевода в любую счислительную систему из десятичной нужно число делить на 2, 8 и 16 соответственно системам. Остаток при делении отмечаешь (если число делится нацело то отмечаешь остаток как ноль). Затем частное от первого деления снова делишь на 2, 8 или 16 соответственно системе счисления. Отмечаешь остаток. И так далее пока не останется в частном то, что уже нельзя делить. Отмечаешь последнее частное. А потом задом наперед (справа на лево) выписываешь последнее частное и за ним все остатки. Это и будет перевод числа в данную систему счисления.
2. a)
b)
3. a)
b)
4. a)
--> 4 единицы в записи
b)
--> 2 единицы в записи.
5. a)
--> 4 нуля в записи
b)
--> 2 нуля в записи
2)
const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
s := 1;
for i := 1 to n do begin
a[i] := random(5);
write(a[i], ' ');
if(a[i] > 1) then s := s * a[i];
end;
writeln;
writeln('Произведение эл. > 1 : ', s);
end.
3)
const n = 8;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := 100000 + random(10000);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольшее кол-во населения: ', max);
end.
2 единицы в двоичной записи числа 1025
1) (696-6-50) / 9 =640/9=71.111
2)(64-16)*10/100=4.8
Не практично и не актуально т.к есть носители информации намного компактнее и долговечнее. например бумага, флешка, диск