Статья, набранная на компьютре, содержит 8 страниц, на каждой странице 40 строк, в каждой строке 64 символа.определите информационный объем статьи в кодировке unicode, в которой каждый символ кодируется 16 битами

1) 8*40*64=20480 символа 2) 20480*16=327680 бит 3) 327680/1024=320 байт

Var  a: array[1..100] of integer;     i, n: integer;   p: integer;       begin  randomize;     writeln('massiv: ');   readln(n);   for i : = 1 to n do    a[i] : = random(10) - 5;     writeln('исходный массив: ');   for i : = 1 to n do    write(a[i], ' ');     p: =1;   for i : = 1 to n do        if (a[i]> 0) and (i mod 2=0) then p: =p*a[i];       writeln('произведение   =',p);   readln.     end.

{программу для вычисления суммы элементов арифметической прогрессии} var i,j,q,d,n,s,s0,sm: integer; begin write('введите число эле-в, первый элемент и шаг   ариф. шаг'); read(n,s0,d); for i: = 1 to n do begin s: = s0 +(i-1)*d; write(s: 2); sm: = sm + s; end; write(sm: 4); end.{программу для вычисления суммы элементов прогрессии} var i,j,q,n: integer; z,b,b0,sm: real; begin write('введите число эле-в, первый элемент и знаменатель   геом. '); read(n,b0,q); for i: = 1 to n do begin z: =i; b: = b0 *power(q,z-1); write(b: 4); sm: = sm + b; end; write(sm: 4); end.