6.
350 Кбайт = 350*1024 байт = 350*1024*8 бит
Необходимая память для хранения одного пикселя =
350*1024*8 / (1280*320) = 7 бит
Количество цветов = 2^7 = 128
7.
Объем файла =
16*8*8000 бит = 16*8*8000 / 8 байт = 16*8000 / 1024 Кбайт = 125 Кбайт
8.
280 Гбайт = 280*1024 Мбайт
Количество CD = 280*1024 / 700 = 409,6 ≈ 410
Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>
Program test;
var i,n,k,s1,es,al:integer;
s:string;
begin
write('Введите кол-во повторений:');
readln(n);
write('Введите строку:');
readln(s);
repeat
inc(k);
for i:=length(s) downto 1 do s:=s+s[i];
for i:=1 to length(s) do
if i mod 2 = 0 then
begin
es:=strtoInt(s[i])+1;
delete(s,i,1);
insert(InttoStr(es),s,i);
end;
writeln(k,') ',s);
until k=n;
for i:=1 to length(s) do
if StrtoInt(s[i]) mod 2 = 1 then inc(al);
writeln('Кол-во нечетных чисел: ',al);
<span>end.</span>