var
n : integer;
S : decimal;
function fac(n : integer) : decimal;
begin
result := 1;
for var i := 1 to n do result := result * i;
end;
begin
write('введите n = ');
readln(n);
for var i := 1 to n do S := S+fac(i);
writeln('S=', S);
end.
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит
Для врача исходной информацией может быть выписка справки, отдача результатов анализов пациенту, выписка лекарств.
Для регулировщика исходная информация является его движения руками(жесты), с помощью их он доводит информацию до водителей.
<span>1) гарнитура, начертание, размер</span>