1. какой объём памяти займёт ниже текст, если известно, что в нём используется кодировочная таблица ascii? happy new year, dear 2. c в конце фрагмента кодировочной таблицы asciiраскодируйте заданный текст: 98 121 99 107 32 105 115 32 109 121 32 100 111 103 46 3. c в конце фрагмента кодировочной таблицы asciiзакодируйте заданный текст: i was born in 1975. 4. сколько символов содержится в тексте, использующем таблицу ascii, если известно, что он занимает 24 576 бит памяти? 5. сколько символов в тексте, созданном с unicode, если его размер 24 576 бит?

1.считаем количество символов и умножаем их на 8 =    240 бит. 2. используя таблицу, берем числа из условия и переводим их в соответствующие символы = byck is my dog. 3. обратное предыдущему, то есть берем символы и с таблицы переводим их в числа.

73 32 119 97 115 32 98 111 114 110 32 105 110 32 49 57 55 53

4. 24576 бит /8 = 3072 символа (1 символ ascii занимает 1 байт = 8 бит) 5. 24576 бит / 16 = 1536 символов (1 символ в unicode занимает 2 байта = 16 бит)

ну так во первых   обяъвление процедуры должно быть

procedure inputmas1(var mas1: tmas );

  во вторых ты забыл   end;   т.е 

begin for i: =1 to 10 do      begin            mas1[i]: =random(n);             write(mas1[i]: 3);       end;   end; {забытый end}

в третьих ты   не написал основную прграмму т.е забыл begin и не вызвал процедуру 

inputmas1

begin

      clrscr;       inputmas1(mas1);

      readkey; end. 

  итого прога должна выглядеть примерно так

program massivuses crt; const n=10; type tmas=array[1..n] of integer; var mas1: tmas;

procedure inputmas1(var mas1: tmas); var i: integer; begin      for i: =1 to 10 do        begin        mas1[i]: =random(n);         write(mas1[i]: 3);         end; end; {основная прога}begin clrscr; inputmas1(mas1); readkey; end.

держи ! пользуйся на здоровье и будь внимательнее.