2 байта = 16 бит => всего значений - 2^16=65536
-1 для нуля
65535
и получается диапазон -32768...32767
min - -32768
Program Zadacha;
Var s: String;
c: Char;
i, pos, count:
Integer;
Begin
WriteLn('Введите слово:');
ReadLn(s);
WriteLn('Введите символ:');
ReadLn(c);
pos := 0;
count := 0;
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
count := count + 1;
If pos = 0 Then
pos := i;
End;
WriteLn('Позиция символа в строке: ', pos);
WriteLn('Количество вхождений символа в строку: ', count);
ReadLn;
<span>End.</span>
1) N = 2^i
64 = 2^i
i = 6 бит глубина кодирования одного символа
2) 30 * 4 = 120 строк на 4 страницах текста
3) 7200 байт = 7200 * 8 = 57600 бит информационный объем сообщения
4) 57600 бит / 6 бит = 9600 всего символов в этом сообщении
5) 9600 символов / 120 строк = 80 символов в 1 строке этого сообщения
Ответ: 80 символов в 1 строке