var
x : array [1..5] of real;
i : integer;
begin for i := 1 to 5 do
if i mod 2 = 1 then
x[i] := (i+1+i-1)/2;
for i := 1 to 5 do
writeln (x[i]:3:2);
<span> end.</span>
Если даш ещё 10 балов дам полностю ответ а так нажми наhttp://www.ido.rudn.ru/nfpk/inf/inf9.html
Дано:
М (мощность алфавита) =64
К (количество символов) =100
х (вес одного символа)
Найти:
Р (размер всей информации)
Решение:
находим вес одного символа
М=2^х ( 2 в степени х)
64=2^х
х=6
находим общий объем информации
Р= к*х (количество умножить на вес одного)
Р=100*6=600
И, между прочим, ОТВЕТЬТЕ, пожалуйста
<span>Ответ: 600 бит</span>