Считая что каждый символ кодируется одним байтом оцените информационный объем в битах следующего предложения: информатика - наука об информации и информационных процессах
Var a : array[1..100,1..100] of integer; b : array[1..100] of integer; m,n,s,i,j : integer; begin readln(m,n); for i: =1 to m do begin s: =0; for j: =1 to n do begin a[i,j]: =random(100); write(a[i,j]: 4); if a[i,j] mod 3 = 0 then s: =s+a[i,j]; end; if s=0 then b[i]: =-10 else b[i]: =s; writeln(' ',b[i]); end; end.
480 бит