Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
1) 8 страниц * на 72 строки * 48 символов = 27648 символов - общий объем статьи.
2) информационный объем будет равен количеству символов умноженному на размер кодировки для символа, т.е. 27648 * 8 = 221184 бита.
3) Так как в вариантах ответа есть объем в Кбайтах и в Кбитах, то считать нужно и в байтах и в битах соответственно.
221184 бит - вариант №3 отпадает сразу
221184 бит / 1024 = 216 Кбит - наш ответ
221184 бит /8 = 27648 байт - отпадает вариант №2
221184 бит /8 = 27648 байт / 1024 = 27 Кбайт - отсекает вариант №1
Таким образом правильный ответ 4) 216 Кбит