Племя пульти имеет 512 символьным алфавитом. вождь этого племени написал послание вождю племении мульти. это послание содержало 80 символов. какой объем информации содержлся в послании?
var n,k:integer; s: string; begin writteln('введите n,k'); readln(n,k); str(n,s);{преобразуем число n в строку s} witeln(s[length(s)-k+1]); {length(s) -длина строки} end.
{2 задача} cons nmax=20; var a:array [1..nmax] of integer; min1,min2,i,k1,k2,N:integer; begin writeln('введите кол-во элементов массива'); readln(N); writeln('введите элементы массива'); for i:=1 to N do read(a[i]); min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента} for i:=2 to n do if min1>a[i] then begin min1:=a[i]; k1:=i end; {исключаем найденный минимальный элемент из массива- можно и по другому} for i:=k1+1 to N do a[i-1]:=a[i]; k1:=n-1; end; min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента} for i:=2 to n do if min2>a[i] then begin min2:=a[i]; k2:=i end; writeln(min1:5,min2:5) {если нужно было сохранить массив в начале программы надо ввести дополнительный массив }
теперь найдём информационный объём всего текста: I=Ki