Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
Var i,d,dmin,dmax,kmax,imin,imax:integer; n:longint; begin Write('Введите натуральное число N: '); Read(n); dmin:=10; dmax:=-1; {больше большего и меньше меньшего} i:=0; repeat d:=n mod 10; n:=n div 10; Inc(i); if dmax<d then begin dmax:=d; kmax:=1; imax:=i end else if dmax=d then Inc(kmax); if dmin>d then begin dmin:=d; imin:=i end until n=0; Writeln('Минимальная цифра - ',dmin,' находится в разряде ',imin,';'); Writeln('Максимальная цифра - ',dmax,' находится в разряде ',imax,';'); Writeln('Сумма максимальной и минимальной цифры - ',dmin+dmax,';'); Writeln('Максимальная цифра встречается ',kmax,' раз(а);'); Write('Минимальная цифра - '); if (dmin mod 2)=0 then Writeln('четная.') else Writeln('нечетная.') end.
Тестовое решение: Введите натуральное число N: 388456 Минимальная цифра - 3 находится в разряде 6; Максимальная цифра - 8 находится в разряде 4; Сумма максимальной и минимальной цифры - 11; Максимальная цифра встречается 2 раз(а); Минимальная цифра - нечетная.
Пусть
I — объём сообщения,
M — количество символов в алфавите,
n — количество символов в сообщении,
i — вес одного сообщения (в битах).
Дано:
M = 128 = 2^7
n = 28
Найти:
I — ? (бит)
I = n * i
M = 2^i
M = 2^7, значит i = 7 бит.
I = n * i = 28 * 7 = 196 (бит)
ответ: 196.