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

ответ:

1) 2 * 16 * 64 * 16 = 32768(бит) - весь информационный объем

2) 32768 : 8 : 1024 = 4(килобайт)

всё

объяснение:

var a: array[1..100,1..100]of integer;

n, m, i, j, mini, minj, maxi, maxj : integer;

 

begin

write('n, m -> ');

readln(n, m); {считываем размер матрицы}

write('input matrix -> ');

for i: =1 to n do for j: =1 to m do

begin

  write('a[',i,',',j,'] -> ');

  readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini: =1;

minj: =1;

maxi: =2;

maxj: =2;

for i: =1 to n do for j: =1 to m do if a[i,j] > a[maxi, maxj] then

begin

  maxi : = i;

  maxj : = j;

end else if a[i, j] < a[mini, minj] then

begin

  mini : = i;

  minj : = j;

end;

writeln('max = a[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('min = a[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end.

program figyri;

uses crt,graphabc;

var xc,yc: integer;

    m: integer;

begin

xc: =windowwidth div 2;

yc: =windowheight div 2;

repeat

write ('введите число');

read (m);

if m> 2 then

    begin

      setpencolor(clgreen);

      rectangle(xc-100,yc-100,xc+100,yc+100);

      floodfill(xc,yc,clgreen);

      readkey;

    end;

if m< 2 then      

    begin

      setpencolor(clred);

      line (xc-100,yc+50,xc+100,yc+50);

      line (xc+100,yc+50,xc,yc-100);

      line(xc,yc-100,xc-100,yc+50);

      floodfill(xc,yc,clred);

      readkey;

    end;

if m mod 2=0 then

    begin

      setpencolor(clblue);

      circle (xc,yc,100);

      floodfill(xc,yc,clblue);

      readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

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