В чёрно-белой картинке цвет одной точки кодируется одним битом, значит количество точек = 6000/1 = 6000
За 1 взвешивание делим 2017монет на 2 и что легче или тяжелее другово
Log2(32)=5 бит - вес символа.
20х5=100 бит - информ объем
100\8=12 байт - инф объем
Потому что архивторы работают не со всеми типами файлов
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>