Предложение состоит из 106 символов, считая все пробелы, запятые и точку. Следовательно, при кодировании оно будет занимать 106 байт, это и есть его информационный объем.
2^7 = 128
V = 64*64*7 = 28672 бит = 3584 байт
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no
Ну как-то так
print("number 1 = ")
num1 = int(input())
print("number 2 = ")
num2 = int(input())
print("output: ", ((num1 * num1) + (num2 * num2))/ 2)
max1 - индекс максимального четного элемента
max2 - индекс максимального нечетного элемента
Var
mas: array[1..100] Of integer;
max1,max2,j: integer;
Begin
For j:=1 To 100 Do
Begin
mas[j] := random(100);
If j=1 Then max1 := j
Else
If (mas[j]>mas[max1])And(mas[j] Mod 2=0) Then max1 := j;
If j=1 Then max2 := j
Else
If (mas[j]>mas[max2])And(mas[j] Mod 2=1) Then max2 := j;
write(mas[j],' ');
End;
writeln;
write(mas[max1],'[',max1,'] - ',mas[max2],'[',max2,'] = ',mas[max1]-mas[max2]);
End.