Var m:array [1..10] of integer;
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.
Количество различных кодов в 10 битах = 2^10 = 1024
Количество бит, необходимых для составления 128 кодов = log(2)128 = 7
1) Расстояние от глаз до экрана монитора должно быть 50-70 см и взгляд находится на одной линии с монитором
2) Ноги. Обе ступни должны стоять на полу. под коленками примерно 90 градусов угол
3) спина расположена должна быть вертикально ровно. Тут он отклонился
<span>Переведем 8(9) в десятичную </span>систему счисления, через развернутую форму записи числа:
8₉ =8*9⁰=8₁₀<span>, </span>следовательно 8₁₀=8₉
Аналогично поступим с 8₁₁<span>: </span>8₁₁ =8*11⁰=8₁₀,
следовательно 8₁₀=8₁₁
Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю))
Program sist;
var a,b,f:integer;
c,p,i:string;
begin
readln(a); //вводим число
b:=2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже
while a>0 do //тут задаём условие (пока a>0 выполняем действия:)
begin //начало скобки(должен знать)
if a mod b=0 then c:='0' else c:='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0)
a:=a div b; //делим а на b без остатка
i:=i+c; //присваиваем строке i результат: строка i+результат строки c
end; //конец скобки
for f:=length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1)
p:=p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу
i:=p; //тут понятно думаю
writeln(p, '(',b,')'); //выводим результат
<span>end.</span>