В 5.
Дано: N=256=2^8; m=4;
Найти L?
Решение: N=L^m; 256=L^m; 256=L^4;
L=4
ответ 4.
6.
Дано: N=36; k=20
Найти I?
всего используется 26 букв + 10 цифр = 36 символов для кодирования
36 вариантов необходимо использовать 6 бит, так как
2^5=32<36<2^6=64, т.е. пяти бит не хватит (они позволяют
кодировать только 32 варианта), а шести уже достаточно таким образом,
на каждый символ нужно 6 бит (минимально возможное количество бит).
полный номер содержит 7 символов, каждый по 6 бит, поэтому на номер требуется 6 x 7 = 42 бита.
<span>По условию каждый номер кодируется целым числом байт (в каждом
байте – 8 бит), поэтому требуется 6 байт на номер
(5x8=40<42<6x8=48), пяти байтов не хватает, а шесть – минимально
возможное количество на 20 номеров нужно выделить 20x6=120 байт.
Ответ: 120 байт</span>
7. Дано N=64 Найти I
<span><span>Всего клеток 8х8 = 64. N=2^i;Для кодирования 1 клетки необходимо 6
бит (2^6=64). В записи решения будет описано 12 клеток (11
ходов+начальная позиция). Объем информации записи 12х6 = 72 бита = 72:8
= 9 байт.
Ответ: 9 байт.</span></span>
Наверное так: из уменьшаемого вычесть вычетаемое
Program col;
var
arr: array [1..10] of integer;
i,n,col: integer;
begin
randomize;
n:=10;
col:=0;
for i:=1 to n do begin
arr[i]:=random(100);
if arr[i] mod 2=0 then col:=col+1;
write(arr[i],',');
end;
writeln;
writeln('количество элементов кратных двум ', col);
readln;
end.
Program z18; Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 2; min:=a[1].Length; while (a[i] <> '') do begin l:=a[i].Length; if (l < min) then h:= i; i:= i + 1; end; writeln(a[h]);End.
Program z19; Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.
Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.