32=2^6 => Для русского языка 1 символ несет 6 бит инфы.
26=2^i => i = log 26 по основанию 2 = 4,7 бит => Для фр. языка 1 символ несет 4,7 бит инфы.
V информации = 10 * 6 бит = 60 бит (для русского языка)
V информации = 10 * 4,7 бит = 47 бит (для фр. языка)
Значит для русского языка сообщение из 10 знаков несет больше информации.
Текстовый файл, ну то есть содержит текстовую информацию.
Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
var a: array [1...n] of integer;
j, k, max: integer:
begin
for j:=1 to n do
readln(a[j]);
sum:=0
For j:=1 to n do
if a[j]mod=0 then sum:=sum*a[j]
Writeln(sum);
end.
ну например 4A Motor Shield на основе MC33932
https://www.chipdip.by/product/4a-motor-shield