Як відбувається присвоювання значення величинам в електронних таблицях

пщояк 17 27 16 33 17

нщёп 15 27 7 17

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000

они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.