Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>
Карп
кара
кора
коза
...
паук
парк
пара
фара
фура
мура
муха
...
лужа
ложа
кожа
кора
гора
горе
море
Чтобы знать к какому типу файл относится и для правильной работы с различными программами и форматами.
1. Узнаем кол-во символов в тексте:
410*43*53=934390 символов
2. Узнаем время выполнения:
934390/133 приблизительно равно 7025 минут = 117 часов = 4,9 суток
Ответ: одна буква несет 5 бит информации.