Данный вопрос уже был поэтому отвечу так же :
У 10-ой алфавит: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 = 10 цифр => основание равно 10.
<span>У 2-ой алфавит: 0, 1 = 2 цифры => основание равно 2. </span>
V=2 кбайт
N=128
2кбайт=2048 байт=16384 бит
16384 бит:128=128 бит
N=2^i
N=2^7=128
128 символов
Сверху в меню: Вставка -> Фигуры -> Линия(вверху должна быть). И делаете себе линию какую хотите :)
1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
как получилось:
777 делим на 16 столбиком, каждый раз смотря на остаток. последнее частное без остатка будет равняться 1 цифре искомого числа, и далее в обратном порядке пишем остатки от предыдущих частных.
777/16=48 (остаток 9)
48/16=3 (остаток 0)
3 - 1 цифра, далее остатки в обратном порядке 0 и 9, итого