Var i, j, h, a, z, n, k: integer;
array1: array [1..100] of integer;
array2: array [1..100] of integer;
procedure swap(var x, y: integer);
var t: integer;
begin
t := x; x := y; y := t
end;
begin
randomize;
write('Введите значение N: ');
readln(n);
for i := 1 to n do
begin
array1[i] := random(10) + 1;
end;
for i := 1 to n do
begin
writeln('Массив:');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for h := 1 to n - 1 do
for z := 1 to n - h do
if array1[z] > array1[z + 1] then
swap(array1[z], array1[z + 1]);
for i := 1 to n do
begin
writeln('После сортировки:');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j := 1 to n do
if array1[i] <> array1[j] then k:=k+1;
if k = n - 1 then array2[i] := array1[i];
end;
for i := 1 to n do
if array2[i] > 0 then a := a + 1;
writeln('Различных чисел: ', a);
end.
2) ascii таблица состоит из 256 значений, следовательно 1 байт мощность его алфавита.
1) юникод то разный бывает. utf-8, utf-16, utf-32. О каком именно речь?
266 минут понадобиться что передать 16 гигабайт по каналу 8мбит/с
Ответ:
1) N=128
формула: N=2 в степени i
128=2 в степени i
i=7 так как 2 в 7 степени= 128
ответ :7.
2) N=2^i; 32=2^i => i=5 бит;
5 МБ = 41943040 бит.
41943040 бит/5 бит = 8388608 символов.
3) 1. Если в кодировке ASCII.
8*25*150=30000 символов.
Один символ в кодировке ASCII занимает 1 байт или 8 бит.
30000*1=30000 байт.
2. Если в кодировке UNICODE.
8*25*150=30000 символов.
Один символ в UNICODE занимает 2 байта или 16 бит.
30000*2=60000 байт.
4) 1) 80*100=8000.
2) 8000:16=500.
3) 32000:500=64 => 2 в 64 степени=6.
5) 1) 3*1024*8=24576.
2) 24576:3072=8 => 2 в 8 степени=3.
не благодари
Объяснение:
Ответ:
program wr;
begin
WriteLn (1);
WriteLn (6);
WriteLn (2, ' ',2);
WriteLn (7, ' ', 7);
WriteLn (3, ' ', 3, ' ', 3);
WriteLn (8, ' ', 8, ' ', 8);
WriteLn (4, ' ', 4, ' ', 4, ' ', 4);
WriteLn (9, ' ', 9, ' ', 9, ' ', 9);
ReadLn;
end.