Спо информатике (7 класс) : ) для записи текста использовали 256-символьный алфавит. какой объём информации в байтах содержат 15 страниц текста, если на каждой странице расположено 32 строки по 64 символа в строке?
Алфавит имеет 256 символов. Для точного указания каждого из них в двоичном коде нужно 8 бит (или 1 байт) , потому что 2 ^ 8 = 256. То есть диапазон двоичных чисел, соответствующих символам, будет от 00000000 до 11111111. Значит, для записи любого символа достаточно 8 бит (1 байт) информации. Следовательно ответ : 15*32*64*1=30720 бит=3840 байт
Const n=20; type v=array[1..n] of integer; w=array[1..n div 2] of integer; var a:v;
procedure FormW(var pa:w;pOdd:boolean); { При pOdd=true формируется массив из нечетных элементов, при false - из четных } var i,k:integer; begin k:=0; if pOdd then i:=1 else i:=2; while i<=n do begin Inc(k); pa[k]:=a[i]; i:=i+2 end end;
var b,c:w; i:integer;
begin Randomize; Writeln('Элементы исходного массива'); for i:=1 to n do begin a[i]:=Random(50); Write(a[i]:3) end; Writeln; FormW(b,false); Writeln('Массив из элементов с четными номерми'); for i:=1 to (n div 2) do Write(b[i]:3); Writeln; FormW(c,true); Writeln('Массив из элементов с нечетными номерми'); for i:=1 to (n div 2) do Write(c[i]:3); Writeln end. Тестовое решение: Элементы исходного массива 11 37 22 43 44 14 3 29 2 25 0 30 37 44 24 45 34 30 39 42 Массив из элементов с четными номерми 37 43 14 29 25 30 44 45 30 42 Массив из элементов с нечетными номерми 11 22 44 3 2 0 37 24 34 39
1) const n=5; var a:array[1..n,1..n]of integer; i,j:integer; begin for i:=1 to n do begin writeln; for j:=1 to n do begin a[i,j]:=i+j; write(a[i,j]:4); end; end; end. 2) const n=4;m=5; var a:array[1..n,1..m]of integer; i,j,max:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:4); end; end; max:=a[1,1]; for i:=1 to n do for j:=1 to m do if a[i,j]>max then max:=a[i,j]; writeln; writeln(max); for i:=1 to n do for j:=1 to m do if (a[i,j]<0)and(a[i,j]>-5)then a[i,j]:=max; writeln; for i:=1 to n do begin writeln; for j:=1 to m do write(a[i,j]:4); end; end.
Следовательно ответ : 15*32*64*1=30720 бит=3840 байт