C(16) = 1100(2)
Проверка:
C(16) = 12(10)
1100(2) = 2^3+2^2 = 8+4 = 12(10)
Приложение.......................................................
Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
<span>End.</span>
Пусть длинна сообщения будет X. Тогда размер сообщения в кодировке UniCode будет 16 * X, а в КОИ-8 - 8 * X. Размер сообщения в кодировке UniCode на 240 бит больше чем размер в КОИ-8. Следовательно, имеем уравнение:
8X +240 = 16X
8X = 240
X = 30
Ответ: длинна сообщения - 30 символов.
1.Попробуй вставить другую картинку
2.Переустанови word
3.Измени размер картинки в paint'е