1. информационный объём статьи 48 кбайт. сколько страниц займёт статья, если на одной странице эл.документа помещается 64 строки по 64 символа, а каждый символ предоставлен кодировке koi-8(символ по 8 бит памяти) 2. статья, набранная на компьютере содержит 10 страниц, на какой из них 32 строки, в каждой строке 48 символов. в одном из представлений unicode каждый символ кодируется 16 битами. определите объясни статьи. 3.статья, набранная на компьютере содержит 24 стр. на какой из которой 32 строки, в каждой строке 60 символов. определите инф.объём составьте в кодировке. windows-1251 символ кодируется 8 битами. и

1) 48*1024/(64*64) = 12 страниц.
2) 10*32*48*2 = 30720 байт = 30 кб.
3) 24*32*60 = 46080 байт = 45 кб.

У меня получилась такая программка:

uses Crt;
const n=15;
type Vec=array [1..n] of integer ;
var i, SumOtr, ColOtr: integer;
    A: Vec ;
begin
ClrScr;
Randomize;
SumOtr:=0;
ColOtr:=0;
WriteLn (' Massiv A: ');
for i:=1 to n do
    begin
       A[i]:=-10+random(20);
       if A[i]<0  then
          begin
             SumOtr:=SumOtr+A[i];
             ColOtr:=ColOtr+1;
          end;
       Write (A[i]:4);
    end;
WriteLn;
WriteLn('ColOtr = ', ColOtr);
WriteLn('SumOtr = ', SumOtr);
WriteLn('SredOtr = ', SumOtr/ColOtr:4:2);
ReadLn;
end.

Const
  n=15;
var
  s:array[1..n] of real;
  st,p:real;
  i,k:integer;
begin
  Writeln('Введите ',n,' сумм остатков');
  st:=0;
  for i:=1 to n do
  begin Read(s[i]); st:=st+s[i] end;
  Writeln('Удельные веса остатков по магазинам');
  k:=0;
  for i:=1 to 15 do
  begin
    p:=s[i]/st*100;
    Writeln(i,' - ',p:0:1);
    if p>12 then Inc(k)
  end;
  Write('Количество магазинов с уд. весом остатков >12%, равно ');
  Writeln(k)
end.

Тестовое решение:
Введите 15 сумм остатков
0.37 1.5 2.11 3.4 9.3 2.89 4 0.85 0 0.73 4.2 5.05 3.5 2.18 0.94
Удельные веса остатков по магазинам
1 - 0.9
2 - 3.7
3 - 5.1
4 - 8.3
5 - 22.7
6 - 7.0
7 - 9.8
8 - 2.1
9 - 0.0
10 - 1.8
11 - 10.2
12 - 12.3
13 - 8.5
14 - 5.3
15 - 2.3
Количество магазинов с уд. весом остатков >12%, равно 2

Полное решение по заданию находится в файле формата MS Word-2003