<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может
1) 640 × 480 = 307200 пикселей в данном изображении
2) 3 байта = 24 бита - глубина кодирования одного пикселя
3) 307200 × 24 = 7372800 бит - информационный объем данного изображения
4) 7372800 бит / <span>1 024 000 бит/с = 7,2 секунды требуется модему, если скорость передачи будет <span>1 024 000 бит/с</span></span>
<span><span>Ответ: 7,2 секунды нужно модему</span></span>
Вывести 2 переменные в порядке в возрастания, или последовательность чисел от n do d?
1 способ
type
massiv = array [2..21] of integer;
var
mass : massiv;
i, summa : integer;
begin
summa := 0;
for i:=2 to 21 do
begin
mass[i]:=i;
if (mass[i] mod 2 = 0) then
summa := summa + mass[i]
end;
writeln('Сумма четных эл-тов равна : ', summa);
readln;
end.
2 Способ
program z;
var
a : array[2..21] of integer;
i,summ : integer;
b : array[2..21] of integer;
begin
for i:= 2 to 21 do
begin
a[i]:=i;
end;
for i:=2 to 21 do
begin
if a[i] mod 2 = 0 then
begin
b[i]:=a[i];
end;
end;
summ:=0;
for i:=2 to 21 do
begin
summ:=summ+b[i];
end;
Writeln(summ);
readln;
end.