<span>это специальный процессор, который предназначен для удаленного запуска приложений, обработки запросов на получение информации из баз данных и обеспечения связи с общими внешними устройствами: принтерами, модемами, устройствами чтения компакт-дисков.
</span><span>это информационная технология работы в сети, позволяющая людям общаться, оперативно получать информацию и обмениваться ею.
</span>
var s:string;
k:byte;
begin
readln(s);
k:= <span>length(s);
write(k)
end.</span>
<span>I = m*log2(N), </span>
<span>где m - количество символов(букв) в сообщении, N - мощность алфавита, т.е. количество символов (букв) в нем. </span>
<span>1) оценка количества информации в первом символе сообщения </span>
<span>N1=2, так как могут быть только 2 разных символа алфавита племени мульти: А или О, m1=1 </span>
<span>I1=m1*log2(N1)=1*log2(2)=1 бит; </span>
<span>2) оценка количества информации в остальных 8-1=7 символах сообщения </span>
<span>N2=32, так как могут быть 32 разных символа всего алфавита племени мульти, m2=7 </span>
<span>I2=m2*log2(N2)=7*log2(32)=35 бит; </span>
<span>3) оценка количества символов информации в сообщении </span>
<span>I=I1+I2=1+35=36 бит</span>
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Max)
end.
Пример
36 102 52 19 212 42 97 72 64 0
212
<span>Задание 3. В очень странной постановке. Вводятся НАТУРАЛЬНЫЕ числа и надо найти сумму ПОЛОЖИТЕЛЬНЫХ. Но ведь ВСЕ натуральные числа положительные...
На всякий случай условие фильтрации положительных поставим. Если не надо - из текста программы надо исключить </span>.Where(x->x>0)
begin
Writeln(ReadSeqInteger(ReadInteger).Where(x->x>0).Sum)
end.
Пример
10
36 102 52 19 212 42 97 72 64 10
706