Единичная система счисления Необходимость в записи чисел стала возникать у людей еще в древности после того, как они научились считать. Свидетельством этого являются археологические находки в местах стойбищ первобытных людей, которые относятся к периоду палеолита (10-11 тыс. лет до н.э.). Изначально количество предметов изображали, используя определенные знаки: черточки, насечки, кружочки, нанесенные на камни, дерево или глину, а также узлы на веревках. Рисунок 1. Ученые эту систему записи чисел называют единичной (унарной), поскольку число в ней образовано повторением одного знака, который символизирует единицу.
Информация взята с сайта биржи Автор24: https://spravochnick.ru/informatika/sistemy_schisleniya/nepozicionnye_sistemy_schisleniya/ .
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает
1)
var a:array [1..10] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write (a[i],' ');
if a[i] < 0 then sum:=sum+a[i];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.
2)
var a:array [1..10] of integer;
i,max,index:integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
max:=a[1];
index:=1;
for i:=2 to 10 do
if a[i] > max then
begin
max:=a[i];
index:=i;
end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.
3)
var a:array [1..10] of integer;
max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(50);
write (a[i],' ');
end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
if a[i] > a[max] then max:=i else
if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.
При палитре 256 цветов для хранения 1 пикселя необходимо
log(2)256=8 бит=1 байт
Для 1 кадра: 800*600*1 байт
Для фильма длительность 1 секунда: 800*600*16 байт
Для фильма длительностью 1 мин:
800*600*16*60 байт = 800*600*16*60/1024 Кбайт = 450 000 Кбайт ≈
440 Мбайт
